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MEMO 



DATE: December 14, 1999 

RE: Dickens U. S. Patent 5806063 

Summary 

All of the claims are anticipated by at least one of the Ohms, IBM or Shaughnessy 
references. Ohms, an uncited statutory bar, invalidates all the claims, either alone or in 
combination with other art. 

Errors Leading to issuance of Dickens 

1. Failure to uncover Ohms (1986 IBM publication) 

2. Failure to rely on Shaughnessy (filed Nov. 21, 1994) 

3. Withdrew rejection on IBM (published Oct. 1995) in light of defective 131 Declaration 

a. Declaration defective for failure of evidence in support of conception^ 

b. Declaration defective for inadequate evidence of reduction to practice 

4. Claims were allowed based on subject matter which was NOT in the claims. 



'Conception must be proved by corroborating evidence which shows that the inventor disclosed 
to others his "complete thought expesssed in such clear terms as to enable those skilled in the 
art" to make the invention. ' . . . However, 'there is no final single formula that must be followed 
in proving corroboration. . . , Rather, the sufficiency of corroboration evidence is determined by 
the "rule of reason."' . . Accordingly, a tribunal must make a reasonable analysis of all of the 
pertinent evidence to determine whether the inventor's testimony is credible. . . . The tribunal 
must also bear in mind the purpose of corroboration, which is to prevent fi-aud, by providing 
independent confirmation of the inventor's testimony.". Kridl v. McCormick , 105 F.3d 1446, 
1449-1450, 41 USPQ2d 1686, 1689 (Fed. Cir. 1997) 

^ In the reasons for aJlowance, the examiner indicated that the claims were allowed because the 
prior art. 

"Does not anticipate nor suggest the set of limitations of the claims, comprising the 
threshold year digits as used to determine a pair of century digits to be used for 
computation, but v^thout enlarging the number of date digits of the database " (emphasis 
added). 

There is, however, nothing in the claims to suggest there is no enlargement of the number 
of date digits of the database. 



The major references reHed on are: 

Ohms, "Computer Processing of Dates Outside the 20* Century", found in the IBM Systems 
Journal, vol. 25, #2, 1986, (uncited - attachment 11); 

Shaughnessy patent 56301 18 (cited - attachment 8) and 

"The Year 2000 and 2-Digit Dates", fflM, October 1995 (cited - attachment 9). 

The Dickens Patent 

The patent was issued on September 8, 1998 on the basis of an application filed on 
October 3, 1996. As filed, the specification comprised five typed pages (attachment 2) and 
referred to two figures of drawing (attachment 3). The application as filed also included fifteen 
method claims including independent method claims 1 and 1 1 (attachments 4 and 5 
respectively). 

The specification describes the Y2K problem; i.e., the ambiguity raised in attempting to 
interpret the representation of a year specified in two digits in the context of a century boundary. 
The specification proposes a preferred format of YYMMDD (Y represents a year digit, M 
represents a month digit, and D represents a day digit). Given this date format, the patent 
describes the solution as follows: 



"A 10-decade window with a YaYb value for the-first^year of the 10-decade window is 
selected, YaYb being no later than the earliestOQY2je^ designator in the database. A 
century designator C1C2 is determined for each date in the database, C1C2 having a first 
value if Y1Y2 is less than YaYb and having a second value if Y1Y2 is equal to or greater 
than YaYb. Each date in the database is formatted v^th the values C1C2, Yi Y2, M1M2, 
and D1D2." 

In other words, given a<aata base or coUectidMi of data which is restricted to a date range 
of no more than 100 year:s,-a/y^two digit year cap be properly located relative to the century 
boundary b y selecting a vear /sometimes/lso called a base year) wh ich is no larger tha n 
t he earliest date in the dafg^baser^ To locate< Snyje^ we merely compare the year to the pivot 
year. If the year is smaller than the pivot year then the date must be beyond the century ^ — ^^^^ < VAMg 
boundary, i.e. for Y2K the year is in the 21"^ century. This follows because we chose the pivot \^ 
year to be as early as the earliest year in the collection. Once we determine that the year is gLo 
smaller, then by definition the year must be beyond the century boundary. Conversely, if the year 
is greater than or equal to the pivot year, then the year is determined to be in the earlier century, 
i.e., the 20^ century. The result again follows fi'om the manner in which we chose the pivot year. 

For example assume the data base has dates fi'om 1967 on. We select a pivot year of 66 ^ 
(we could have selected any year less than 66 or even 67, but no more than 67). Assume we 
retrieve 85 as a year in question. Since 85 is larger than 66 we determine that 85 refers to 1985 
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and not to 2085, Now assume we retrieve 42. We determine that 42 is less than 66 and so 
determine that 42 refers to 2042 and not to 1942. 

That is windowing. It is claimed by Dickens. Significantly, however, it is also described by the 
prior art Ohms, IBM, and Millennium publications as well as the Shaughnessy patent. 



Prosecution History 

On November 17, 1997 the examiner issued an action rejecting all 15 claims. The 
art cited by the examiner included the Shaughnessy patent 5,630,1 18 (attachment 8) and a May 
1996 edition of an IBM publication entitled "The Year 2000 and 2-Digit Dates: A Guide for 
Planning and Implementation". The examiner rejected claims 1-15 as being anticipated by the 
IBM publication. 

The response to the rejection included an IDS identifying an October 1995 edition of the 
IBM publication (attachment 9) relied on in the office Action. In addition, the response included 
a declaration under rule 131, intended to antedate the October 1995 date of the IBM publication 
identified in the IDS. The declaration alleged a reduction to practice of the invention in April 
1996 as well as conception of the invention at some unidentified date prior to October 1995, 
coupled with diligence toward the reduction to practice in April 1996. The declaration is found 
as attachment 6 and the exhibits to the declaration are found in attachment 6A. There was no 
attempt to distinguish the claims from the applied reference or any other reference. 

Several days later (April 2), a telephone interview was conducted and as a consequence 
the applicant filed a supplemental response amending independent claims 1 and 1 1 as well as 
claims 4, 6, 8, 10 and 13 in order to overcome a rejection based on section 1 12. Attachments 4 
and 5 show (at the bottom of each page) the amendments to claims 1 and 1 1 . There was no 
anempt to distinguish the claims from the applied reference or any other reference. 

The examiner responded (on April 8) by indicating that claims 1-15 were allowed. The 
examiner recorded his reasons for allowance. He said: 

"The prior art of record, taking into account the affidavit of the inventor, received 
3/24/98, swearing behind the reference of the previous action, does not anticipate nor 
suggest the set of limitations of the claims, comprising the threshold year digits as used to 
determine a pair of century digits to be used for computatio n, but without enlarging the 
number of date digits of the database ". (Emphasis added - Attachment 7). 

None of the Dickens claims includes any limitation corresponding to the emphasized 
language. 

The patent issued on September 8. 



Prior Art 

The art referred to includes: 

(1) "The Millennium Journal", July 1995 (attachment 10), 

(2) Ohms, "Computer Processing of Dates Outside the 20* Century" found in the IBM Systems 
Journal, volume 25 number 2, 1986 (attachment 11), and 

(3) DeJager, "Doomsday 2000" found in the September 6, 1993 issue of Computerworld 
(attachment 13). 

Subject Matter of the References 

The nub of Dickens is that a century designator can be determined from a 2-digit year 
date (1) if the date range is limited to no more than 100 years, (2) appropriately selecting a pivot 
year (YaYb) and (3) testing the 2-digit year date against the pivot year to determine the century 
designator. This description is found in each one of Shaughnessy, IBM, Millennium, and Ohms 
going back in time (at least in the case of Ohms) to 1986. 

Shaughnessy (attachment 8) 

Referring to Fig. 2, Shaughnessy first determines th e current date, then uses that to 
determine the end of the 100 year cycle, and from that determlBeTfwopossible century values-* 
To address Y2K, those values are the 20^ and 21"^ centuries corresponding to the century 
designator pairs 19 and 20. Fig. 7 illustrates how the century value is assigned. Function 62 
compares the date (that is the 2-digit year representation which is being processed) with the end 
of the 100-year cycle. If the date is less than or equal (see column 7, line 8-10), the 21"^ century 
indicator is assigned whereas if the date is greater than the end of cycle date, then the earlier 
century designator is assigned. 

IBM (attachment 9) 

The IBM publication on the Y2K subject includes chapter 4 "Reformatting Year-Date 
Notation", The text provides: 

"The fixed window technique uses a static 100-year interval that generally crosses a 
century boundary. This technique determines the century of a 2-digit year by comparing 
the 2-digit year against a window of 100 years. The user specifies the number of years in 
the past and future relative to a specific year within the 100-year interval." 

The text uses an example where the pivot year is 1960 and determines the century for a 
given date XY by first determining if XY is greater or equal to 60 (the pivot year). If it is, we 
have a 20^ century date, e.g., the century indicator is 19. On the other hand, if XY is less than or 
equal to 59, e.g., less than 60, then the date is a 21"^ century date, e.g., the century indicator is 20. 



4 




Millennium 

The Millennium publication also describes windowing. The text indicates: 

"In windowing, the 2-digit years are left alone in the files. A base year is selected (e.g., 
"50") where every year starting with (or, in some cases, greater than) "50" through "99" 
is treated as a 1900 date, and any year less than (or equal to) "50" is treated as 2000. 

The text also indicates that "Sorts require an exit ". 

Ohms 

Ohms also addresses the Y2K problem, and it does so at a much earlier time than the 
other references. Ohms notes, at page 248: 

"However, it may be necessary to provide a conversion function that receives a definition 
of the implied century as a parameter. An excellent way to do this unambiguously is to 
specify a year as the desired starting point of a 100-year range. For example, if the 
starting year for the range is specified as 1925, dates with year digits of 25 through 99 
would be between 1925 and 1999, and dates with year digits of 00 through 24 would lie 
between 2000 and 2024." 



DeJager 

DeJager describes, from the vantage of 1993, the need for paying attention to Y2K 
problems. The pertinent portion of DeJager indicates that failure to pay attention to Y2K can 
have an impact on sorting functions. 

Attached and forming a part of this memo is a set of claim tables (Tables A-M) 
and attachments 1-16 which are identified as follows 

1 . The Dickens Patent 

2. The specification of the application, as filed 

3 . The set of drawings from the application, as filed 

4. Independent Claim 1, as filed, also showing a later amendment 

5. Independent Claim 1 1, as filed, also showing a later claim amendment 

6. The Declaration of Inventor filed under Rule 131 

6. A The Exhibits to The Declaration of the Inventor under Rule 1 3 1 

7. The Examiner's Reasons for Allowance 

8. The cited Shaughnessy reference 

9. The cited IBM reference (October 1995 edition) 

10. The uncited Millennium Journal reference 
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1 1 . The uncited Ohms reference 

1 2 . The uncited Roberts reference 

1 3 . The uncited De Jager reference 

14. Common Lisp, The Language (1984) 

15. Computer Software Corp. Web page on DateServer2000 

16. ISO 2014 Numeric Calendar Dates 1976 
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Table A 



1. A method of processing symbolic 
representations of dates stored in 
a database, comprising the steps of 



providing a database with symbolic 
representations of dates stored 
therein according to a format 
wherein M.sub.l M.sub.2 is the 
numerical month designator, D.sub.l 
D.sub,2 is the numerical day 
designator, and Y.sub.l Y.sub.2 is 
the numerical year designator, all 
of the symbolic representations of 
dates falling within a 10-decade 
period of time; 

selecting a 10-decade window with a 
Y.sub.A Y.sub.B value for the first 
decade of the window Y.sub.A 
Y.sub.B being no later than the 
earliest Y.sub.l Y.sub.2 year 
designator in the database ; 

determining a century designator 

C. sub.l C.sub.2 for each symbolic 
representation of a date in the 
database, C.sub.l C.sub.2 having a 
first value if Y.sub.l Y.sub.2 is 
less than Y.sub.A Y.sub.B and 
having a second value if Y.sub.l 
Y.sub.2 is equal to or greater than 
Y.sub.A Y.sub.B ; and 

reformatting the symbolic 
representation of the date with the 
values C.sub.l C.sub.2, Y.sub.l 
Y.sub.2, M.sub.l M.sub.2 , and 

D. sub.l D.sub.2 to facilitate 
further processing of the dates. 



Ohms, Computer Processing of dates 
outside the twentieth century, 1986 

Ohms describes a "date processing 
method" (p. 244 



this is a classic short Gregorian 
date, see p. 247, the conversion 
function described at p. 248 works 
with any format which includes 2 
digit year. Ohms describes the 100 
year (i.e., 10-decade) period of 
time (p. 249) 



p. 248, right hand column, -specif y 
a year as the desired starting 
point of the range - this is 
Y.sub.A Y.sub.B , which is no later 
than any year date in the data base 

the century designation is 
determined by comparing the year 
date (Y.sub.l Y.sub.2) with Y.sub.A 
Y.sub.B , if the year, Y.sub.l 
Y.sub.2, is greater then the 
century is the earlier one and vice 
versa, see p . 24 8 



the '^implied century" (see p. 248, 
right hand column) is the 



Table B 



1. A method of processing symbolic 
representations of dates stored in 
a database, comprising the steps of 

providing a database with symbolic 
representations of dates stored 
therein according to a format 
wherein M.sub.l M.sub.2 is the 
numerical month designator, D.sub.l 
D.sub.2 is the numerical day 
designator, and Y.sub.l Y.sub.2 is 
the numerical year designator, all 
of the symbolic representations of 
dates falling within a 10-decade 
period of time; 

selecting a 10-decade window with a 
Y.sub.A Y.sub.B value for the first 
decade of the window Y.sub.A 
Y.sub.B being no later than the 
earliest Y.sub.l Y.sub.2 year 
designator in the database; 



deteritiining a century designator 
C.sub.l C.sub.2 for each symbolic 
representation of a date in the 
database, C.sub.l C.sub.2 having a 
first value if Y.sub.l Y.sub.2 is 
less than Y.sub.A Y.sub.B and 
having a second value if Y.sub.l 
Y.sub.2 is equal to or greater than 
Y.sub.A Y.sub.B ; and 



reformatting the symbolic 
representation of the date with the 
values C.sub.l C.sub,2, Y.sub.l 
Y.sub.2, M.sub.l M.sub.2 , and 
D.sub.l D.sub.2 to facilitate 
further processing of the dates. 



Shaughnessy US Patent 5630118 

The disclosed software assigns a 
century value to a two digit year 
date (7/6+), which is processing of 
symbolic dates 

One format which can form an input 
is YYMMDD, see Date Type "B'' in the 
appendix at col. 18, 



This processing is limited to dates 
which span 100 years, see below 



software "determine [s] end of 
current 100 year cycle", step 16, 
fig. 2, 3 or 4, as the '"end" of the 
100 year range, the ^'end" year is 
one less than the beginning (if 
^'37'' is the last year of a 100 year 
period, '"38" is the first year of 
the same period) , the ^^end" year is 
no later than any date in the data 
base as claimed 

the century designator is 
determined by comparing two digit 
representation to the end of the 
100 year cycle date, if the year 
being processed is greater, then 
the earlier century value is 
assigned and vice versa; (col. 7, 
lines 5-15) 



the reformatting is described at 
2/30-32; 6/57- 



Table C 



1. A method of processing symbolic 
representations of dates stored in 
a database, comprising the steps of 

providing a database with symbolic 
representations of dates stored 
therein according to a format 
wherein M.sub.l M.sub.2 is the 
numerical month designator, D.sub.l 
D.sub.2 is the numerical day 
designator, and Y.sub.l Y.sub,2 is 
the numerical year designator, all 
of the symbolic representations of 
dates falling within a 10-decade 
period of time; 

selecting a 10-decade window with a 
Y.sub.A Y.sub.B value for the first 
decade of the window Y.sub.A 
Y.sub.B being no later than the 
earliest Y.sub.l Y.sub.2 year 
designator in the database; 

determining a century designator 

C. sub.l C.sub.2 for each symbolic 
representation of a date in the 
database, C.sub.l C.sub.2 having a 
first value if Y.sub.l Y.sub.2 is 
less than Y.sub.A Y.sub.B and 
having a second value if Y.sub.l 
Y.sub.2 is equal to or greater than 
^.sub.A Y.sub.B ; and 

reformatting the symbolic 
representation of the date with the 
values C.sub.l C.sub.2, Y.sub.l 
Y.sub.2, M.sub.l M.sub.2 , and 

D. sub.l D.sub.2 to facilitate 
further processing of the dates. 



IBM, THE YEAR 2000 AND 2-DIGIT 
DATES, Oct. 1995 

The Chapter heading, "reformatting 
year-date notation" relates to 
processing symbolic representations 
of dates 

in the "fixed window'' section, the 
reference to "2 digit year" is a 
reference to the date format of 
this claim 



the text cautions that the 
procedure is limited to 100 year 
ranges, i.e., a 10-decade period of 
time 

the text refers to the 100 year 
window, and as shown the selection 
of "60" as the value for Y.sub.A 
Y.sub.B is indeed no later than the 
earliest year date being processed 

the determination of the century 
designator is exactly as claimed, 
(the notation in the text, Y.sub.A 
Y.sub.B >60 or Y.sub.A Y.sub.B < 59 
is identical to Y.sub.A Y.sub.B < 
60 which is claimed) 



use of the century designator in 
reformatting year data is indicated 
by the very chapter heading 



Table D 



2. The method of claim 1, wherein 
the 10-decade window includes the 
decade beginning in the year 2000. 



3. The method of claim 2, wherein 
the step of determining includes 
the step of determining the first 
value as 20 and the second value as 
19. 



4. The method of claim 1, including 
an additional step, after the step 
of reformatting, of sorting the 
symbolic representations of dates. 



5. The method of claim 1, wherein 
the step of reformatting includes 
the step of reformatting each 
symbolic representation of a date 
into the format C.sub.l C.sub.2 
Y.sub.l Y.sub.2 M.sub.l M.sub.2 
D.sub.l D.sub.2, 



6. The method of claim 5, including 
an additional step, after the step 
of 

reformatting, of sorting the 
symbolic representations of dates 
using a numerical-order sort. 



7. The method of claim 1, wherein 
the step of providing a database 
includes the step of 

converting pre-existing date 
information having a different 
format into the format wherein 
M.sub.l M.sub.2 is the numerical 
month designator, D.sub.l D.sub.2 
is the numerical day designator and 
Y.sub.l Y.sub.2 is the nximerical 
year designator. 



Ohms, IBM and Shaughnessy all are 
directed to Y2K and by definition 
propose a window which includes the 
year 2000 



Ohms, IBM and Shaughnessy all are 
directed to Y2K and by definition 
propose century designators 19 and 
20 



Shaughnessy suggest a further 
sorting operation or an operation 
equivalent to sorting. Shaughnessy 
describes date comparisons (col 4, 
lines 37-62, col. 8, line 33-col. 
12, line 19), IBM has cautions (p. 
4-3) related to the use of the data 
as a sequence for indexing 



Shaughnessy uses this format, see 
6/58 



Shaughnessy teaches using the 
reformatted data for a date 
comparisons, see (col 4, lines 37- 
62, col. 8, line 33-col. 12, line 
19) . This is equivalent to sorting 



Shaughnessy teaches a host of date 
formats (appendix in col. 18) and 
indicates they can be converted to 
the format using M, D and Y 
variables as claimed, see col. 8, 
lines 18-27. 



Table E 



ohms. Computer Processing of dates 
outside the twentieth century, 1986 
and 

DeJager, ''Doomsday", 1993 



4. The method of claim 1, including 
an additional step, after the step 
of reformatting, of sorting the 
symbolic representations of dates. 



The subject matter of Ohms has 
already been described. DeJager, in 
his 1993 Y2K wakeup call entitled 
"DOOMSDAY" points out (see p. 108) 
that the failure to properly handle 
Y2K will produce sorting errors. 
Since both references address Y2K, 
Ohms describes one solution while 
DeJager underlines the importance 
of any solution, it would be well 
within ordinary skill, considering 
both references, to realize that 
correctly handling Y2K will enhance 
sorting functions as claimed. 



Table F 



8. The method of claim 1, wherein 
the step of selecting includes the 
step of selecting Y.sub.A Y.sub.B 
such that Y.sub.B is 0 (zero). 



9. The method of claim 1, including 
an additional step, after the step 
of reformatting, of storing the 
symbolic representation of dates 
and their associated information 
back into the database. 



10. The method of claim 9, 
including the additional step, 
after the step of 
reformatting, of manipulating 
information in the database having 
the reformatted date information 
therein . 



Both IBM and the Millennium Journal 
has an example of the pivot year of 
^^60" or "50" as claimed - See the 
text on the other 103 factors 
relative to the use of the 
Millennium Journal 



Ohms and IBM teach that storing the 
reformatted dates can be done, see 
pp 248-9 of Ohms and the discussion 
of compressed code solutions in 
IBM. 



data bases are used for accessing 
and using the stored information 



Table G 



Shaughnessy US Patent 5630118 



11. A method of processing dates in 
a database, comprising the steps of 



providing a database with dates 
stored therein according to a 
format wherein M.sub.l M.sub.2 is 
the numerical month designator, 
D.sub.l D.sub.2 is the numerical 
day designator, and Y.sub.l Y.sub.2 
is the numerical year designator, 
all of dates falling within a 10- 
decade period of time which 
includes the decade beginning in 
the year 2000; 

selecting a 10-decade window with a 
Y.sub.A Y.sub.B value for the first 
decade of the window, Y.sub.A 
Y.sub.B being no later than the 
earliest Y.sub.l Y.sub.2 year 
designator in the database; 



determining a century designator 
C.sub.l C.sub.2 for each date in 
the database, C.sub.l C.sub.2 
having a first value if Y.sub.l 
Y.sub.2 is less than Y.sub.A 
Y.sub.B and having a second value 
if Y.sub.l Y.sub.2 is equal to or 
greater than Y.sub.A Y.sub.B ; 

reformatting each date in the form 
C.sub.l C.sub.2 Y.sub.l Y.sub.2 
M.sub.l M.sub.2 D.sub.l D.sub.2 to 
facilitate further processing of 
the dates; and 



sorting the dates in the form 
C.sub.l C.sub.2 Y.sub.l Y.sub.2 
M.sub.l M.sub.2 D.sub.l D.sub.2. 



The disclosed software assigns a 
century value to a two digit year 
date (7/6+) which is processing of 
dates 

One format which can form an input 
is YYMMDD, see Date Type "B" in the 
appendix at col. 18, 



This processing is limited to dates 
which span 100 years, i.e., a 10- 
decade period (see below) 



software "determine [ s ] end of 
current 100 year cycle", step 16, 
fig. 2, 3 or 4, as the "end" of the 
current cycle it is also at least 
as "early" as any date in the 
database, for example, if "37" were 
the end of the 100 year period, 
then "38" would be the beginning 
and either "37" or"38" would be no 
later than any date in the range, 
as claimed, 

a century designator is determined 
by comparing a two digit year 
representation to the end of the 
100 year cycle date, if it is 
greater, then the earlier century 
value is assigned and vice versa; 
(col. 7, lines 8-13) 



the reformatting is described at 
2/30-32 and 6/57- 



sorting is a well known operation 
for the date comparison described 
at 1/26 and at column 8 



Table H 



11. A method of processing dates in 
a database, comprising the steps of 



providing a database with dates 
stored therein according to a 
format wherein M.sub.l M.sub.2 is 
the numerical month designator, 
D.sub.l D,sub.2 is the numerical 
day designator, and Y.sub.l Y.sub.2 
is the numerical year designator, 
all of dates falling within a 10- 
decade period of time which 
includes the decade beginning in 
the year 2000; 

selecting a 10-decade window with a 
Y.sub.A Y.sub.B value for the first 
decade of the window, Y.sub.A 
Y.sub.B being no later than the 
earliest Y.sub.l Y.sub.2 year 
designator in the database; 

determining a century designator 
C.sub.l C.sub.2 for each date in 
the database, C.sub.l C.sub.2 
having a first value if Y.sub.l 
Y.sub.2 is less than Y.sub.A 
Y.sub.B and having a second value 
if Y.sub.l Y.sub.2 is equal to or 
greater than Y.sub.A Y.sub.B ; 

reformatting each date in the form 
C.sub.l C.sub.2 Y.sub.l Y.sub.2 
M.sub.l M.sub.2 D.sub.l D.sub.2 to 
facilitate further processing of 
the dates; and 

sorting the dates in the form 
C.sub.l C,sub.2 Y.sub.l Y.sub.2 
M.sub.l M.sub.2 D.sub.l D.sub.2. 



IBM, THE YEAR 2000 AND 2-DIGIT 
DATES, Oct. 1995 

The Chapter heading, "reformatting 
year-date notation" relates to 
processing dates 

in the ''fixed window'' section, the 
reference to a "2 digit year" is a 
reference to the date format of 
this claim 



the text cautions that the 
procedure is limited to 100 year 
ranges, i.e., a 10-decade period 



the text refers to the 100 year 
window, and as shown selection of 
60 for the Y.sub.A Y.sub.B is 
indeed no later than the earliest 
year date being processed 

the determination of the century 
designator is exactly as claimed, 
(the notation in the text, Y.sub.A 
Y.sub.B >60 or Y.sub.A Y.sub.B < 59 
is identical to Y.sub.A Y.sub.B < 
60 which is claimed) 



use of the century designator in 
reformatting year data is indicated 
by the very chapter heading 



reference to collating sequence 
support and indexing sequence 
support suggest use of reformatted 
data in operations like sorting 



Table I 



12. The method of claim 11, wherein 
the step of providing a database 
includes the step of 

converting pre-existing date 
information having a different 
format into the format wherein 
M.sub.l M.sub.2 is the numerical 
month designator, D.sub.l 
D.sub.2 is the numerical day 
designator and Y.sub.l Y.sub.2 j.s 
the numerical year designator. 



13. The method of claim 11, wherein 
the step of selecting includes the 
step of selecting Y.sub.A Y.sub.B 
such that Y.sub.B is 0 (zero). 



14. The method of claim 11, 
including an additional step, after 
the step of sorting, of storing the 
sorted dates and their associated 
information back into the database. 



15. The method of claim 14, 
including the additional step, 
after the step of sorting, of 
manipulating information in the 
database having the reformatted 
date therein. 



Shaughnessy teaches a host of date 
formats which can be converted to 
the format using M, D and Y 
variables as claimed, see the 
appendix at column 18, the 
conversion among these formats is 
taught at column 8, lines 18-27 



Both IBM and the Millennium Journal 
have examples of the pivot year of 
60'' or "50, both of which have a 
0" unit digits 



IBM, teaches that storing the 
reformatted dates can be done, see 
the discussion of compressed code 
solutions in IBM. 



data bases are used for accessing 
and using the stored information 



Table J 



5. The method of claim 1, wherein 
the step of reformatting includes 
the step of 



reformatting each symbolic 
representation of a date into the 
format C.sub.l 

C.sub.2 Y.sub.l Y.sub.2 M.sub.l 
M.sub.2 D.sub.l D.sub.2. 



Ohms, Computer Processing of dates 
outside the twentieth century, 1986 
and 

The Millennium Journal , July 1995 



The Millennium Journal, at p. 4 
describes the claimed format in the 
context of a Y2K solution. This 
teaching would have made it obvious 
at the time to use this format 
after using the Ohms procedure to 
determine the proper century. 



6. The method of claim 5, including 
an additional step, after the step 
of reformatting, of 

sorting the symbolic 
representations of dates using a 
numerical-order sort . 



The Millennium Journal, at p. 3, 
refers to sorting of dates in 
connection with Y2K procedures. 
This teaching would have made it 
obvious at the to sort data after 
Y2K. 



7. The method of claim 1, wherein 
the step of providing a database 
includes the step of 

converting pre-existing date 
information having a different 
format into the 

format wherein M.sub.l M.sub.2 is 
the numerical month designator, 
D. sub , 1 

D.sub.2 is the numerical day 
designator and Y.sub.l Y.sub.2 is 
the numerical year designator. 



Ohms describes a number of date 
format conversions as well as the 
use of the specific YYMMDD format. 



Table K 



Ohms, Computer Processing of dates 
outside the twentieth century, 1986 
and The Millennium Journal , July 
1995 



14. The method of claim 11, 
including an additional step, after 
the step of sorting, of storing the 
sorted dates and their associated 
information back into the database. 



15. The method of claim 14, 
including the additional step, 
after the step of sorting, of 
manipulating information in the 
database having the reformatted 
date therein. 



Ohms teaches that storing the 
reformatted dates can be done, see 
the discussion at p. 248-9. 



data bases are used for accessing 
and using the stored information 



Table L 



11. A method of processing dates in 
a database, comprising the steps of 



Ohms, Computer Processing of dates 
outside the twentieth century, 1986 
and 

The Millennium Journal , July 1995 

Ohms describes a "date processing 
method'' (p. 244, 5 



providing a database with dates 
stored therein according to a 
format wherein M.sub.l M.sub.2 is 
the numerical month designator, 
D.sub.l D.sub.2 is the numerical 
day designator, and Y.sub.l Y.sub.2 
is the numerical year designator, 
all of dates falling within a 10- 
decade period of time which 
includes the decade beginning in 
the year 2000; 

selecting a 10-decade window 
with a Y.sub.A Y.sub.B value 
for the first decade of the 
window, Y.sub.A Y.sub.B being 
no later than the earliest 
Y.sub.l Y.sub.2 year 
designator in the database; 

determining a century designator 
C.sub.l C.sub.2 for each date in 
the database, C.sub.l C.sub,2 
having a first value if Y.sub.l 
Y.sub.2 is less than Y.sub.A 
Y.sub.B and having a second value 
if Y.sub.l Y.sub.2 is equal to or 
greater than Y.sub.A Y.sub.B ; 

reformatting each date in the form 
C.sub.l C.sub.2 Y.sub.l Y.sub.2 
M.sub.l M.sub.2 D.sub.l D.sub.2 to 
facilitate further processing of 
the dates; and 



sorting the dates in the form 
C.sub.l C.sub.2 Y.sub.l Y.sub.2 
M.sub.l M.sub.2 D.sub.l D.sub.2. 



this is a classic short Gregorian 
date, see p. 247, the conversion 
function described at p. 248 works 
with any format which includes 2 
digit year representations as is 
this one. Ohms describes the 100 
year, i.e., 10-decade period 
(p. 249) 



p. 248, right hand column,- specify 
a year as the desired starting 
point of the range - this is 
Y.sub.A Y.sub.B, which is no later 
than any year date in the data base 



the century designation is 
determined by comparing the year 
date (Y.sub.l Y.sub.2) with Y.sub.A 
Y.sub.B, if the year, Y.sub.l 
Y.sub.2, is greater then the 
century is the earlier one and vice 
versa, see p. 248 

the Millennium Journal does 
describe this format in the context 
of Y2K procedures - consequently it 
would have been obvious at the time 
to have used this format with the 
century information when acquired 
as described by Ohms 

the Millennium Journal also 
indicates, p. 3, that sorting can 
be accomplished in connection with 
Y2K date correction 



Table M 



12. The method of claim 11, wherein 
the step of providing a database 
includes the step of 



converting pre-existing date 
information having a different 
format into the format wherein 
M.sub.l M.sub.2 is the numerical 
month designator, D.sub.l D.sub,2 
is the numerical day designator and 
Y.sub.l Y.sub.2 is the numerical 
year designator. 



Ohms, Computer Processing of dates 
outside the twentieth century, 1986 
and 

The Millennium Journal , July 1995 



Ohms describes a number of date 
format conversions as well as the 
use of the specific YYMMDD format. 



Specification as Filed 



RArK-nROTIND OF THE INVENTION 



This invention relates to the manipulation of information in a database, and, 
in particular, to the determination of dates in a useful form. 

Dates are stored as symbolic representations in computer databases in varying 
formats. For example, a date may be represented in the numerical representation 
MM/DD/YY, where MM is a two-digit month designator, DD is a two-digit day 
designator, and YY is a two-digit year designator (the last two digits of the year). 
Thus, December 15, 1993 is designated as 12/15/93. A date may also be represented 
in an alphanumeric form MMM/DD/YY, where MMM is an alphabetic month 
designator (e.g., DEC for December), and DD and YY are the same as in the 
numerical form. December 15, 1993 is represented in this format as DEC/15/93. 

Such approaches for the representation of dates have worked well since the 
advent of computer databases, which has occurred ir ♦he twentieth century. Dates 
may be sorted in chronological order using the numerical representations. However, 
with the turn of the century at January 1, 2000, the representation and utilization of 
dates becomes more complex. Using the numerical form above, December 15, 2000 
is represented as 12/15/00. If a numerical sort is performed on 12/15/93 and 
12/15/00, the later date 12/15/00 sorts as the fiist-occuiring date, an incorrect result. 

Sets of dates spanning the turn of the century and associated with past, 
current, and future activities are now stored in many databaises. When stored in the 
conventional formats discussed above, those dates will not readily be used and 
numerically sorted in chronological order. They may be manually converted to a 
more usable form in the sense that programs may be written to perform conversions, 
manipulations, and sorting. However, these ptogtams typically require additional 
data fields for storage, which may be objectionable in some circumstances. 
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There is a need for an improved approach to the representation and utilization 
of datM in databases, and for converting the existing dates in databases to a more 
usable form. The present mvention fulfills this need, and further provides related 
advantages. 

SUMMARY OF THE INVENTION 

The present invention provides an approach to the representation and 
utilization of dates stored symbolically in databases. Existing symbolic date 
representations are converted to a more useful form of symbolic date representations 
without the addition of new data fields, and in a manner tiiat is performed 
automatically by the computer and requires no user input. The approach of the 
invention permits direct numerical sorting of dates. 

In accordance with the invention, a method of processing dates stored in a 
database comprises the steps of providing a database with dates stored therein 
according to a format wherein M1M2 is the numerical month designator, D2D2 is the 
numerical day designator, and Y|Y2 is the numerical year designator, all of the dates 
falling within a 10-decade period of time. A 10-decade window witii a Y^Yg value 
ror the first year of the ten-decade window is selected, Y^^Yg being no later than the 
earliest YjY2 year designator in the database. A century designator C1C2 is 
deterauned for each date in the database, CjCj having a first value if Y1Y2 is less 
than Y^Yg and having a second value if Y1Y2 is equal to or greater than Y^Yq. 
Each date in the database is formatted with the values C1C2, Yiy2, M1M2, and 
D1D2. 

In the case of most practical interest, the 10-decade period of time spans the 
year 2000 and begins with a year in which the second digit (Yg in Y^^Yg) is 0 
(zero). For any 10-decade period includmg the year 2000, if the decade designator 
Yi of the date in the database is numerically less than the decade designator Y^ of 
the first decade of the 10-decade period of time, the century designator C1C2 is "20". 
If Yj is equal to or greater than Y^, €^€2 is "19", Dates in databases spanning 
more than 10 decades are not handled by this approach, but it is not expected that 
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this limitation wiU be significant for most commercial and industrial databases. 

This approach works particularly well if the dates are represented in the 
format C1C2Y1Y2M1M2D1D2. The date Dec. 15, 2000 is represented in this format 
as 20001215. for example. Dates represented in this fonnat may be directly sorted 
numerically by fast sorting techniques, and thereafter stored back in the database. 

The present invention thus provides an efficient approach to converting and 
utilizing symbolic date representations in databases, which allows automatic 
processing of dates ranging from before to after the year 2000. TTie large number 
of dates represented in some databases may thereby be readily processed and utihzed. 
Other features and advantages of the present invention will be apparent from the 
following more detaUed description of the preferred embodiment, taken m 
conjunction with the accompanying drawings, which Ulustrate, by way of example, 
the principles of the invention. The scope of the invention is not. however, hmited 
to this preferred embodiment. 

RRTEF DESrRTPTION Q P THR DRAWINGS 

Figure 1 is a schematic representation of a computer database with date 

information therein; and 

Figure 2 is a block flow diagram of a preferred approach far practicing the 

approach of the invention. 

nTTTAILED r>RS^RIPTIO^ J hp the INVE] 

Figure 1 schematically depicts a computer 20 having a read-only or random- 
access memory 22. a mass-storage device 23. and a central processing unit 24 
therein. Stored in the memory 22 or on the mass-storage device 23 is a database 26. 
The database includes information in the form of symboUc represei^ations of dates 
and associated mformation such as events occurring on the respective dates. In a 
conventional approach, the dates are stored in a format such as M1M2/D1D2/Y1Y2 
format. M indicates month information. D day information, and Y year information. 
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with the subscript 1 or 2 indicating the first or second digit of the designator, 
respectively. December 15. 1993 is stored as 12/15/93 or 12-15-93. and December 
15 2000 is stored as 12/15/00 or 12-15-00, for example. If a numerical sort is 
performed on these dates, 12/15/00 will sort chronologically prior to 12/15/93. 

Figure 2 illustrates the approach of the invention. The computer database 26 
is provided, numeral 30. having symboUc representations of dates stored therein. In 
some cases, the dates wiU be represented as discussed in the preceding paragraph, 
m odier cases, an alphanumeric designator is used. In that approach, each date is 
stored as M^MbM^D^Da/YiY^ format, where M^M^M, is an alphabetical symbol 
such as JAN for January. FEB for February, etc. In that case, the month designator 
M MkM is first converted to the numerical form M^Mz by converting JAN to "01", 

3 D C 

FEB to "02", etc. 

A 10-decade window is selected, numeral 32. That is. it is necessary that all 
dates in the database wUl be within some period of 10 decades, or 100 years. This 
limitation poses littie problem for most industrial and commercial databases. The 
window may be arbitrarily selected. For example, the decade could begin with the 
1950's and end with the 2040's, or it could begin with the 1980's and end with the 
2070's. The 10-decade window will normally include some decades from the pnor 

century and some from the new century. 

The first year of the 10-decade window is represented by Y^Yb. In a 
commonly utilized application. Yb is 0 (zero), although the invention is not limited 
to this case. That is. the 1950's first decade would be represented by Y^O of "50". 
and the 1980's first decade would be represented by Y^O of "80". For this case, a 
century designatoTcA ^ date is determined, numeral 34. by comparmg the 
value of Yi. the first digit of the year designator for the date, with Y^, the first digit 
of the first decade of the 10-decade window. C^C^ is assigned a first value if Yi is 
less than Y^ and a second value if Y^ is equal to or greater than Ya. 

In the case of most interest, the 10-decade window includes decades earher 
than the year 2000 and decades later than the year 2000, and Yfi ^ aao 
assigned "20" if Y^ is less than Y^ and is assigned "19" if Yi is equal to or greater 
than Y^. m that case and for example, if Y^ is 5, meaning that the decade 
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beginning in 1950 was selected as the first decade of the 10-decade window, and if 
Y1Y2 is "43", the century designator C1C2 ^ "20", indicating that the year in 
question in the database is 2043. On the other hand, if YiYj is "63", the century 
designator CjCz indicating diat the year in question in the database is 1963. 

This selection process is performed in a completely automated fashion by the 
computer, without human input other than to select the starting date of the 10-decade 
window. 

The symboUc representations of the dates in the database are reformatted widi 
the values C1C2, Y1Y2, MjMj, and D1D2, numeral 36 of Figure 2. In one case that 
produces particularly advantageous results for many operations, such as chronological 
date sortmg, the date is represented in the form CiCjYi Y2M1M2D1D2. For example, 
the date 12/15/93 (December 15, 1993) is represented as 19931215 and the date 
12/15/00 (December 15, 2000) as 20001215. A straightforward numerical sort of 
date data fields expressed in this form produces an accurate chronological ordering. 

Once the symbolic representations of die dates are reformatted according to 
the procedures set forth above, the date information may be sorted, numeral 38, or 
otiierwise manipulated, numeral 40, together with die entries associated with the 
dates. Such manipulation may mclude handling of data associated with the dates, 
storing the dates and associated information back in the data base, or other processes. 

The approach of die invention has been implemented in a computer program, 
a copy of which is attached as Exhibit A. This program converts dates both before 

and after the year 2000. 

The present invention provides an effective technique for reformatting 
symboUc representations of date information that is rapid and automated, and yields 
new symboUc representations of date information that are particularly amenable to 
furdier processing. Altiiough a particular embodiment of the invention has been 
described m detail for purposes of illustration, various modifications and 
enhancements may be made witiiout departing from the spirit and scope of die 
invention. Accordmgly, the invention is not to be limited except as by the appended 
claims. 
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Claim 1 



Claim 1 as filed 



1. A method of processing symbolic representations of dates stored in a 
database, comprising the steps of 

providing a database with symbolic representations of dates 
stored therein according to a format wherein M: M, is the 
numerical month designator, D-. D, is the numerical day designator, 
and y- Y- is the numerical year designator, all of the symbolic 
representations of dates falling within a 10-decade period of 
time ; 

selecting a 10-decade window with a Y= value for the first 
decade of the window Y- Y, being no later than the earliest Y: Y; 
year designator in the database; 

determining a century designator C: C- for each symbolic . . v v 

representation of a date in the database, C: C, having a first value if Y: Y 
is less than Ya Yo and having a second value if Y. Y; is equal to or greater 
than Ya Y3 ; and 

reformatting the symbolic representation of the date in the 
database with the values C: C;, Y: Y:, M: M:, D: D;. 



The last clause of claim 1 is amended as follows: 

reformatting the symbolic representation of the date [in the database] 
with the values C, C^, Y^ Y,, M^, D.. D3 to facilitate further processing of 
the dates. 



Claim 11 



Claim 11 as filed 



11. A method of processing dates in a database, comprising the steps of 

providing a database with symbolic representations of dates 
stored therein according to a format wherein Mi M: is the 
numerical month designator, Di D: is the numerical day designator, 
and Y. Yo is the numerical year designator, all of the symbolic 
representations of dates falling within a 10-decade period of 
time which includes the decade beginning in the year 2000; 

selecting a 10-decade window with a Y. Yh value for the first 
decade of the window Ya Y, being no later than the earliest Y: Y: 
year designator in the database; 

determining a century designator C: C: for each date in the 
database, C: C, having a first value if Y: Y: is less than Y., Y, and 
having a second value if Y: Y: is equal to or greater than Y,, Y. ; 
and 

reformatting each date in the database and sorting the dates in 
the database using a numerical-order sort. 



The last clause of claim 11 is amended as followsj_ 

reformatting each date [in the database] in the form CC.Y-YzMiMgPiDg 

facili tate further processing of the dates and 

„„rting ^^-^ database - in the form C iCaYiYsMiMzDtD^ 
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I Bruce Dickr", h.reby declare and stare that: 

! : an. CO =oIe inva^co. of the claimed xnvent.on of 

.r- J TT c Parant ADOlicacion Serial No. 

aWw*- identified U.S. Pacent rt^t^j-x 
Che abov* laen;; reformatting data stored in 

08/725,574 directed to * method improper 

A ciacax>ai» concury deeign^tioivs for 

recogBicion and procefl5ing of the concury 

I *m pr..enrly employed by Boeing CocnpaBy 

u-^v, m^raed with my previous employer, 
ir-ine, California, vbxch merged vit y P ^ 

McDonnell DougU- Corporation, on August ^'^^ , 

^ ^ ^«,,r4mioufllV for fiirst McDonnall Douglae 
have wor)ced concinuouBiy pabrTjarv 6, 1988 

J rviP. Bo«inq Corapainy from Faoruairy 

Corporation and now Tbe Boeiuy >- 

until the present. *;.^ci- 
3 During the couaae o.' my e^loy«>ent with first 

► .-^T, «-i<i now The Booing Company, i 
McDonnell Douglas Corporation and now Tne a 

ZZ developed .oftw.rc to sort and othervise proceas a 
^iety ofHta. In order to properly process the dat.. 1 
variety ,„<:r«are which reforrnate the data iJito 

have had to develop software voi.^^ 

rmnae each of which can be separately processed. A* 
aubscringc, each ot developed software that 

ehovn in Bxbibit A. for --"^^^ ^ subncrings 
reformata a nuxuerical representation of a t 
for subeequeixt: processing. A- set forth at Ixne 8 
attached at ffichlbit A and designated by an , 

. rK« ^*«ionation of different cools stored an a 
A re'Dreaents cne a*fignati>-^ 

1^=»... ror in»tanc.. th. ch.r.c..r A ».y «»"'"^ '"'^^ 
^IHll n>«b.r and .-k, of p.rc aa -3»/HaX..- A. such U,. 

:":„a.. : -v.o.ca ... -"TJaT ^^ - 

reforroac the ch^ractar into two ^ ^ ^^K^rvifi^ 

w -^r^«T-A^^>lv sorted OT otnervific 
cucH thAt the tools can b« aeparAteiy 3ori.cu ^-^^^ 
sucii i-M^ bafljid upon the substrajaga 

processed by serial number and naXft baaeci up 



Xn xa: Briic# Dicjcens 
Serial So. 06/725,574 
Filed) oecdb^r 3^ 

and "Hake^r ZB0p«ctiv*ly^ X develq^d the consnicer 
program aci:achdd ae gyblhit A and named otmout.inc;2 ac leaac 
as ^arly aa S^tttibar 27 « 1994^ as shown in tlic .dlreccory 
lifting of Bvhibii: B. In this regard. Exhibit B ic a printout 
of tb« directory including a listing for the coteputer program 
atrachad as Stxhibit K and named **otmout «int;2' that dLndicat«5 
a creation date of Sepceober 27, X994. (J3e« Rrh^hiti line 
48« deelgnated by an *^^) . 

4. ae early as February 15^5 « I realised that 
tranafomizzg datr into eubstringv could be used to sort and 
ocherviae pTOceac daces. For axaoople. mocrt dates are stored 
in databasea ac tnm/dd/yy representations, x determined that 
thaae dat«« could be represented as substringa by removing tho 
and reformatting the dates into eubstringe in the" form or 
mmdd^, Tbeae aubetringa can then be used for eorting by 
munch, day, or year. As anch, I developed a conpucer program, 
fixmrr*int|2, vhich performs oorting of datea by refoxnatcing 
daces into sxibstringa* A printout of fixmrr«int;^ ie attached 
at Kxhibit C. Ac shown at pag« line 5 of TtxhIMt C and 
also designaced by an the program reformats a dace in the 

database, Miai(ruw:K), into a variable AOATE? that is con^tisad 
of aubstrlnge. Aa also shown on page S, line XI of Exhibit C 
and deeignaced by an t**^*, the program then eorcs the daces by 
using the yy substriag of the ia3ATS$ string. As shown in the 
directory printout ar cached as fijOiibit D. Che creation daL« of 
Che fixmrr.int;2 program is ac least as early as February 
1995. (a«e Exhibit line 11. desispnated by an . 

5. As dem o n strated by Kxhlbic X also dev«tloped ot^r 
cypes of computer programs that reformatted dates into 
anbscrings. in this regards Bxhibic E is a printout of a 
cocqpucer* program chat datermlnas the number of business days 
in a year. As can be seen from the oucpuc of chia program s«c 
forth in Exbdbic T, che working days of the yoar have been 
reformatted as 9998yyyynBndd. (See Bsdiibic F/ coi« i) . 
Further, in xreferenee to Sxhibic F, the dates of Che year hav« 
boen refomatced into stibscrings yymbddyynnnf wherein 
repreaencs che i^arclcular worX day of che year, (See Jbchibit 
p, col. 2) . As indicated on page i of che coinputer program of 
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ExMblc E. this program wa- created ac l*a8C as early as Marcli 

13. 1995. 

6. During the development of tha computer programs 
attached a6 Exhlbica c and E and prior to October 1995, I 
conceived of che claimed method for date formatting and 
sorting of dates spanning the turn of tha century based upon 
my determination that reformatting dates into subscrings could 
be used to re=>edy the year 2000 problem. From a dace prior co 
October 199S, I then worked diligtncly to reduce co practice 
che claimed invention of date formatting and sorting. For 
exan^l*, once the dates have been parsed into cheir respective 
monch. day, and year designations, I dec.rrained chi»c che yy 
oubecring of a dace could be coated again«c th« carlieoc year 
in a ten decade period to deterroine whether che d*c« was prior 
to or after the year 2000. For instance, a date rapresanted 
by ABATES could b« refonaacted as rnnuidyy. The yy subetring 
could then be compared co che •arliast year in a ten decade 
period to determine wbecher the data was in che tvmntieth or 
twenty- firat century. If che year designation for a 
particular date in the database is leas chan this earliesc 
yi(ar, the date is designated as corrseponding co the next 
century. If the year designation ie greacar chan this 
earliecc year, however, the dace is designated as 
corresponding to che current century. The year can then be 
properly designated as yyyy and the dace can be reformatted as 
yyyymnidd for «ubE«qu«nc data sorting. 

7. As ovidenc«d by tho computer program dat«d April 4, 
1996 that ia attached ac Exhibit G, I eventually developed a 
computer program for date formate ing and aorting for daces 
spanning the turn of the century as claimed in the above 
referenced patent application. {3«e KJChibit G, lino 3, 
designated by an •"•) • Thus. I reduced the claimed invention 
to praccice at least aa early as P^ril 4, 1996. 

8. I recently became aware of the firct and cbird 
edition* of an IBM article entitled The year 2000 and 2.Digit 
Daces: A Guide for Planning and Implemencacion. " The first 
edition of the article indicaces a publication date or October 
1995 and the third edition indicacea a publication data of May 

1996. 



In re: Bruce Dickens 
Serial No. 08/725.574 
Pllod: October 3 1 199^ 
Pacro 4 • 

9 However, the above ccatraenta and infonnacion 

den^n-crace that I conceived of a method for date foxTnAtting 

and sorting for d^tea spanning clia turn of the cencury prior 

CO October 19^5. The above scatemanti; and attached exhibits 

alGO demonstrate that I diligently worked to reduce co 

practice Ch* claitred method from a data prior to October 199S 

CO my reduction of practice of che claimad invention at lease 

as early a» April 4, 1S9S. 

10. I hereby declare that all statem*nt3 made herein of 
my own knowledg. era true and that all stacemanco made on 
information and belief are believed to be true; and further 
chac these etatemente were made with the knowledge that 
willful false statements and the like eo made ar« punishable 
by fine or impriaonment, or both, und-r Section 1001 ot Title 
18 of the united Statea Code and that such willful false 
atacemencs may jeopardize the validity of the application of 
any pacent issued thercon. ^ 

BRUCB DICKENS 
DATE 



Exhibits to Declaration 
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! open #l:name 'list.d.;^'/ access output 

!10 open structure TOOL^ ame "otms_src_dir : TOOLS" ' 

20 extract structure PARTS 

SORT BY PARTS (MODEL) 
end extract 
.^0 print 'PARTS info' 

for each PARTS 
: A = PARTS (UNIT_PRICE) ^^V- 

! AB = PARTS (UUNIT_PRICE) 

i AA - A[2:7] 

! B = DTYPE {A[2 : 7] ) 

! B = VAL (TOOLS (QTY) ) 

! B = VALID (TOOLS (QTY) , NUMBER) 

! IF B = 1 THEN 

print PARTS (PARTNO) , PARTS (UNIT_PRICE) ; ' ' ; PARTS ( UUNIT_PRICE ) 

! END IF 

next PARTS 

close structure PARTS 
! close #1 
50 end 



Directory D55: [USERS .BRU(j^—K INTOUCH.OTM] 



I 



ADD_STR.INT;10 
ADD_STR2.INT;14 
ADD_STR_EX . INT; 2 
2^0D_STR_EX2 . INT; 7 
D STR_EX3.INT;8 
ADD^STR_PRT. INT; 6 
ADD_STR_TOL. INT; 5 
Aill .INT;4 
AR2,INT;29 
B . COM; 3 

CUSTOMER. DAT; 2 
CUSTOMER. DEF; 1 
CUSTOMER. FDL; 3 
CUSTOMER. STR; 1 
EXT__PAR_CHL. INT; 1 
EXT_PAR_CHLD . INT; 1 
EXT_PAR_CLD1 . INT; 1 
EXT_PRT. INT; 1 
GOV. DEF; 1 
GOV. FDL; 2 
GOV. INT; 4 
GOV. STR; 1 
GOVMOD . INT; 5' 
GOVMODSUB. INT; 5 
GOVRPT . INT; 6 
GOVSFMOD . INT; 6 
GOVTPSUB. INT; 6 
INVOICE.DAT; 2 
INVOICE . DEF; 2 
INVOICE . FDL; 3 

"VOICE .MAIN; 2 
. ..VOICE . STR; 1 
LEDGER. LIS; 1 
LIST . DAT; 4 
MAINTAIN. INT; 225 
MAINTAIN_DAV. INT; 1 
r^INTAIN_HELP . INC; 2 

MARGIN . INT; 1 
MSAF$RESOURCES'. DIR; 1 

NAI4CY1 . GUIDE; 1 
NANCY.. . INT; 10 
NONAME . INT; 3 
OTM. INT; 36 
OTMOUT. INT; 2 
PARTE_EXCI .RPT; 10 
PARTE_EXC2 . RPT; 10 
PARTE_EXC3 .RPT; 10 
PRI_EX. INT;1 
PRI_EX2 . INT; 12 
PRI_EX3 . INT; 6 
PTY.CMD; 6 
PTY . INT; 7 
RR . DAT ; 1 
RR.DEF; 1 
PR. FDL; 2 

.MAIN; 34 
KK. STR; 2 
TOOLl . INT; 34 
TOOLS . DAT; 2 
TOOLS .DEF; 1 
TOOLS .FDL; 3 
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3 26-MAY-1994 12:06:25.90 
371 27-SEP-1994 07:27:50.38 
313 16-FEB-1993 11:36:00.31 
315 lO-SEP-1992 11:16:26.20 

19 25-AUG-1989 16:15:31.14 

1 25-MAY-1994 10:09:38.48 

1 31-J\N-1995 15:13:15.62 

1 16-AaG-1994 14:12:29.86 

33 18-AUG-1994 13:02:36.17 

1 5-NOV-1994 10:44:54.09 

2 12-OCT-1996 09:58:09.60 

2 27-SEP-1994 07:27:38.18 ^ 

1 27-MAY-1994 12:18:45.99 

1 27-MAY-1994 12:18:46.38 

1 27-MAY-1994 12:18:47.65 

1 24-MAY-1994 08:00:07.35 

2 25-MAY-1994 09:10:54.54 
2 25-MAY-1994 09:59:37.23 
1 27-MAY-1994 12:15:58.83 
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1 18-MAR-1995 13:00:50.58 
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144 3-JUN-1993 12:20:39.12 

27 3-JUN-1993 10:08:30.19 

4 2-AUG-1994 10:55:23.28 
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^y^uuuuuuuuoooououooooooooooooooooooooooooucuoouo 

! "program:^ ""^MRr:'^.int Version 3.0-9 
! Package: Inl.uch Utilities 
! Author: BRUCE DICKENS 

I Date: October 1, 1992 

1 Pnrnose- ON-LINE TOOL MATERIAL SYSTEM 

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%^^%^*^ 

10 set system : comment "Initializing report" 

ask system : mode mode$ 

ask system, symbol ' otms_toolno$' : value toolno? 
[added one line above Imoved value of global symbol to toolno? 

show stats = true ^^^^ 

if mode$ = "BATCH" or mode$ = "OTHER" then show^stats = false 

string_dtype = 1 
declare dynamic f ield_data 
max_list = 50 
max_structure = 9 

max_titles% = 20 

dim title$(max_titles%) 

dim real total (max_lis 0 to max_list) 

dim real extract_totals (max_list ) 

dim break_hold$ (0 to max_list) 

dim break_compare$ (0 to max_list) 

dim integer page_break(0 to max_list) 

dim integer skip_break_totals (0 to max_list) 

dim integer level_coun t { 0 to max^list) 

dim integer groupcount{0 to max_list) 

dim integer str_found{0 to max_3 t ructure ) 

dim string break_desc$ (0 to max_lisc) 

dim integer break_pos(0 to max_list) 

20 ! Special variable declarations go here 

today$ = date$ (days (date$) , 3) 
cntrl_z$ = chr$ (26) 
no current_record = 7305 
out ch = 2 
st_Tnx% = 0 
last_break_level% = 1 
no_stats = false 

til s?I?e;:,°"gica?'-,.ide_fil._lo<=ator' : value guide.f ile_locat=rS 
if guide file locators <> " t^e". ,, . ,„„t„_s 

USR_COUNT = 1 

100 gosub main_logic 

end 



1000 



routine main_logic 

1020 gosub init 

gosub open_files 



do 
do 



gosub extract_init 
if bailout% then exit do 
gosub extract__records 
if bailout% then exit do 
gosub print_init 



if bailout% thr" exit do ^"■ 
message "Pages^.rinted: " + str$ {page_cour. jr%) 

end do 

close #out ch 
if bailout¥ then 

message error: 'Report aborted by user action... 

delay 3 
else 

gosub display_report 
end if 

if bailout% then exit do 
loop 

close all 
clear 
* 

1099 end routine 



!%%%%%%%%%%%%%%%%%%%%%%%%%%% 

! start up initialization 
! Expected: 
! Result : 

!%%%%%%%%%%%%%%%%%%%%%%%% 
routine init 

margin =132 

set margin margin 

frame off 

gosub def ine_constants 
end routine 



10000 



10010 



routine def ine_constant s 

! Special definitions go here 
tsuppress% = false 
ma)cing_report = true 
po_print_tag$ = "otm_" 
making_export = false 
making_export_structure = false 

unique report name = true 

report>ame$ = ••OTMS_RPT_DIR:OTM__MRR. LIS" 
report_margin = 255 

building_message$ = "Building repor^:... 

scr__v/idth% = 132 

levels% = 0 

deepest_level% = 0 

totals_count% = 3 

do_totals% = true 

cio_groupcount% = false 

titles% = 3 

lookup_err$ - 

spacing% = 1 

cutoff% = 0 



z 



formsize$ = "66" 
lines_jper_page% =»• 58 
break_hold$(0) = "" 
break_compare$ (0) = 
page^break (0) = false 
3kip_break totals (0) = false 
break_ciesc?'(0) = "" 
break DOS (0) = 1 

title$(l) = "On-Line Tool Material System" 

! title$(2) = "SPECIAL TOOLING CARD" 

! title${3) = 

title_length% = 37 

report width% =12 6 

narrowl" = false 

10099 end routine 



11000 



11020 



r$ 



! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
!OPEN FILES 

! %%%%%%%%%%%%%%'%%%%%%..%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
routine open_f iles 

! open structures here 

set system : comment "Opening data structures" 
if guide_f ile_loca tor$ <> "" then 

set structure locator, field #1 : key "MRR" 

if _extracted = 0 then 

message error : "Structure: MRR - Not found in " + guide_f ile_iocar 

stop 
end if 

z$ = locator(#2) 

if pos(2$, ":") = 0 then 2$ = 2$ + ":" 
open structure r-IRR: name " OTMS_S RC_DIR : NIRR" , 

else 

open structure MRK: name "OTMS_SRC_DIR : MRK" 
end if 



datafile 2$ + locator(#l) 



11099 



end routine 



! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%^^%%* 
'EXTRACT INIT 

!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%^%%%^%%^^^^^%^'^^^^^'^^*^ 
! initialize variables needed for the extract phase 

! Expected: 

1 Result : 

! rec = 0 

! sta = 0 

! found = 0 

! key_input$ = ' ' 

! bailout% = false 

routine extract_init 

rec% = 0 
sta% = 0 
found% = 0 
detail rec% = 0 



3 



]cey_Tnput$ « ' ' 

model$ =» " 
bailout% = false 



11200 u prompt$ = "Tool Number? 
u_default$ = 
u_len « 20 
do 

gosub ask 

if exit then 

baTlout% = true 

exit do 
end if 

if back then repeat do 

tool_subset$ = ucase$ (trim$ (u_reply$) ) 

if tool subset$ <> then toolno$ - tool 3ubset$ 
if tool"3ubset$ = then tool 3ubset$ = toolno$ 

set svstem, •avmbol ' otms toolno^^^' : value toolnoS 
.>..HdPd ?hree lines above "reset toolno$ to u_default$ and 

! Padded three lines aoove ^^^^ global symbol equal to toolno$ 

! reset u_default$ to toolno$ 
t VATDATE WORK ORDER 

set structure MRR, field toolno : partial key tool_3ub3et| 
set structure MRR, field toolno : key tooi_suDsec^ 

if _extracted = 0 then 

""prKt at 10, 35, bold, underline: "Tool subset not on File" 

delay 
repeat do 

end if 
end do 



gosub show_stats ^_ 
message "Extracting records, 
set system : comment "Extracting from imR 



set system 
end routine 



routine extract__records 

12020 !when exception in 

extract structure MRR 

gosub show extract status^ (found% cutoff%) ) 

exclude ((cutoff% > 0) ana ^^^""^^^ j^^^^ ^ then exit extract 
•if {(sample% > 0) and (found% >- sample^} j 
if bailout% then exit extract 

I extract lookups go here 

! LETS go here 

I INCLUDES go here 



! EXTRACTION TOTALS go 1 

ADATE$ « MRR (DATE) [5:6] + MRR(DATE) [1 : 4] ^ 

include MRR (TOOLNO) [1 : len (tool_subset$) ] = tool subset$ 
INCLUDE MRR ( TOOLNO ) = tool_3ub3et$ ~ 

when exception in 
sort by MRR ( DATE ) 
sort by AD ATE $ 

use 
end when 

if _error then exclude true 
found% = found% + 1 
end extract 

gosub show_recs__searched 
go sub show_recs_selected 
end routine 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%^%%^^^%^^^ 

PRINT INIT 
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
initialize variables needed during the print phase 

Expected : 
Result 

The ouput file is opened 
start j>rint__time = time (0) 

first_line = true 

key_input$ = ' ' 

page_counter% = 0 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
routine print_ini t 

me s sage bui Idi ng_me s sage $ 

set system : comment building_message$ 

if out_ch > 0 and not making_export__s tructure then 
i f unique_report_name then 

open #out_ch: name report_name$ , access output, unique 
ask #out_ch : name report_name$ 
else 

open #out_ch ; name report_name$ , access output 
end if 

set #out_ch: margin report_margin 
end i f 

start_print_time = time(O) 
key_input$ = ' ' 

line_counter% = lines_per_jpage% ! cause first page break 
first_line% = true 

end routine 



!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
! PRINT REPORT: 

! %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% 
routine print_report 



5 



LET HOURS = 0 

TOTAL (1,LEVEL%) = 0 

T0TAL(2,LEVEL%) - 0 

T0TAL(3,LEVEL%) = 0 

13020 for each MRR 

gosub show_report_status 

if bailout% « true then exit for 

! Do file lookups 

print toolno, hours, mrr { fab_cost ) 
HOURS = HOURS + MRR ( FAB__COST ) 

gosub 3et_user_def ined 
gosub add_totals 
gosub print_detail_line 
first line% = false 

level_count (0) - level__count (0) + 1 

next MRR 

level% = 0 

gosub print_totals 

if out ch > 0 then close #out_ch 
13099 end routine 



routine relate many 



end routine 



14000 



14020 



u dispatch$ - routine to dispatch to after clear screen 
- (u dispatch$ is cleared on reference) 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%^%%%%^^^^^^^^^^^^^^*^^^^^^^^^^^'^^^^^'° 
routine display__report 

if not making__report then 
gosub show__stats 
delay 

exit routine 

end if . ^ . 

if out ch = 0 then exit routine 

set system : comment "Displaying report 

u str$ = report_name$ 

u~scr_width% = margin 

u~dispatch$ = 'show_stats' 

gosub prnt_as}c_option 



14099 



end routine 



21000 



routine new page 



21020 



if not making_rr -ort then exit routine 

page_counter% = V: counter% + 1 

gosub show_recsjprinEed 

gosub 3how_pages_printed 

gosub show_eoj 

print #out_ch: .chr$(12); 

gosub check_title_substitutes 

page$ = "Page + str$ (page_counter%) 

p% = len(page$) 

t% = len(title$ (1) ) 

rpt width% = max (report_width%, t%+22%) 

rpt width% = max (rpt__width%, len (title$ (2) ) ) 

rpt width% =^ max (rpt_width%, len (title$ (3) ) ) 



/ 2 



leave room for the date 



2% = (rpt_width% - t%) 
if z% < 13% then z% 
print #out_ch : today$; 

print #out_ch: tab{z% + 1 ); title$(l); 

print #out_ch: tab ( rpt_width% - p% + 1); page$; chr$ (0) 
line_counter% - 1 

print #out ch:tab(l); "SPECIAL TOOLING CARD"; 
print #out~ch:tab(114) ; "COST HISTORY CARD" 
for i% = 2 to titles% 

2% = (rpt_width% - len (title$ (i%) ) ) /2 

if z% < 1% then z% = 1% 

print #out_ch: tab(z% + 1); title$(i%); chr$(0) 
line_counter% = line_counter% + 1 
next i% 

print #out_ch:tab(2); "TOOLNBR:"; TAB(13); KRR(TOOLNO) 

print #out_ch: chr$ (0) 

line counter% = line counter% + 1 



21099 



print #out_ch 
print #out_ch 
print #out__ch 
print #out__ch 
print #out_ch 
print #out_ch 
print #out_ch 
print #out_ch 
line_counter% = 
print #out_ch 
print #out_ch 
print #out_ch 
print #out_ch 
print #out_ch 
print #out_ch 
print #out_ch 
print #out_ch 
line__counter% = 
f irst_page_line% 
end routine 



tab (1) ; 
tab (10) 
tab (21) 
tab (32) 
tab (88) 
tab (103) 
tab (117) 
chr$ (0) 
line counter% 



"DATE"; 
"TWO "; 
"CCN"; 

"D E S C R I 
"MAT_COST" ; 
; "FAB_COST"; 
"TOTAL" ; 



P T I O N"; 



+ 1 



tab (1) ; 
tab (10) ; 
tab (21) ; 
tab (32) ; 
tab (88) ; 
tab(103) 
tab(117) 
chr$(0) 
line__counter% 

= true 



repeats ("- 
repeats ("- 
repeats ("- 
repeats ("- 

repeats ("- 
repeats ( 
repeats ( 



It _ 



It 



8) ; 

10) ; 

10) ; 

50) ; 

12) ; 
12) 
12) 



+ 1 



21100 



routine check_title__substi tutes 
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21199 
22000 

22020 

22099 
24000 

24020 

24099 
26000 

26020 



use 

continue 

end when 



end routine 



routine set_user_clefined 

! user-defined variables get calculated here 
when exception in 

""^If extype = no_current_record then continue 

end when^ 
end routine 

routine add_totals 

when exception in 

for level% = 0 to levels-s 

! Add level totals here ^ mrr{MAT COST) 

total (l,level% " ^°f^i ^'ievll% + MRR (FAB-COST) 

^°^:l|3:i:::J%! = tot:l!3:ievel%! . MKR(TOTAL) 
next level% 

"^!f extype = no_current_record then continue 

end when 
end routine 

routine print_detail_line 

l/^ifne^couiterr" Un:s_per^age% then gosub new_page 
datajprinted% = false 
when exception in 

col len% = 8 ■ ^ v, ,■, ^ • 

p7int #out_ch : tab(i). , ^ ^ j^^^E ) ; 

print #out_ch, using 
data_printed% = true 

col len% =10 . 

?!int {SuOh/u"ing "<i....»»#»" : HKR ( TWO , ; 
data_printed% - true 

col len% = 10 ^ ^ K^oi s - 
data_printed% - true 



*#" • MRR { CHG DESC ) ; 

## • ^ data_printed% = true 

col len% ™ 12 

p?int #out_ch : tab{88); ^^3^ j. 

print #out_ch, using "$##,###, 
data_printed% = true 

col len% =■ 12 

print #out ch : tab(102); 

print #out:ch : "HRS" ; MRR ( FAB_COST ), 

data_printed% = true 

col len% = 12 ^ ,^,n^ 

r^";^-! n+- inut ch : tab(ii/); 
Er^nt Joutlch, using "$##,###,### 
datajprinted% = true 

print #out ch : 

line countir% = line_counter% + 1 



ir 



MRR ( TOTAL ) ; 



26099 
27000 



27020 



"'print #out_ch: repeat$ (loo)cup_err$, col_len%) ; 

continue 
end when 

for z% = 1 to spacing% 

ffif «u„"iS^- line_cou„tar% . 1 

next z% 

data_printeci% - ^^-^l^ . 
first__page_line% = false 
last_break__level% = U 

end routine 

routine print_totais 

^9-^ - 1^ and (level% = levels%) 
if tsuppress% and(level_count (level%) - D and ( 

then exit routine f-hon pxit routine 

if s)cip_break_totals leveU) then ex.t^^^ ^^^^^ ^^^^^^^ 

if line_counter% >- xxnes_ytii._^ ^ 

orint #out ch : tab(88); repeat$ ( " = 12^- 
print #out-ch : tab(l03); repeat? IJ 
lAnt Joutlch : tab(117); repeat? ( - , 12). 

?rnf coCnti?% = line_counter% . 1 

'%r?"ti^rci'T^t:;.(SreL5^^ .rea._descMlevel%) ; ' 

when exception in 

col len% = 12 , .q^x . 

priHt #OUt_ch : tab(8 ). , TOTAL ( 1 , LEVEL% ) ; 

print #out ch, using $U^r^^^r^^^ 



col__len% = 12 
print #out__ch 
print #out_ch 



tab(l02); 

"HRS" ; tab(106) 

Q 



HOURS; 



col_len% = 12 . 

print tout ch *. .cab(116); 

print #out"ch, using "$###,###, : TOTAL (3, LEVEL%) ; 

use 

print #out_ch: repeat$ (lookup__err$, col_len%); 
continue 
end when 



print #out_ch: 

line counter% = line counter% + 1 



27099 end routine 
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ASK 

Ask the expected prompt. 



EXPECTED: 

u_prompt$ = question being asked 
u default$ = the default 

u len = the length. Doesn't reset any of these. 
u~help__key$ = the help key (optional; will use the prompt 

" with spaces changed to _ and "?:" removed) 
u required = true if a response is necessary 



ask : 



RESULT: 

u_reply$ = user's reply 
u~help+key$ is reset to 
u required = true 



81620 clear area 21 , 1 , 21 , old_margin 
if u help key$ = then & 

u help__key$ = change$ (trim$ (change$ (ujprompt$ ,'?:'))/ " 

do " " 

if u default$ <> then toolno$ = u_default$ 
if u'"default$ = then u__default$ = toolno$ 
set System, symbol ' otms_toolno$' : value toolno$ 
! wadded three lines above ! reset tooino$ u_def ault $ and 

!set global symbol equal to toolno5 
[reset u default$ to toolno$ 



u reply$ = 

iTne input at 21,1, & 

prompt u_j)rompt$ , 6 

default u_default$, & 

length u_len: u__reply$ 
if _help then 

h__key$ = u_help_key$ 

josub^h_help ^^^^ ^^^^^ ^^^^ 21,l,21,old_margin 
repeat do 
if exit or back then exit do 

if u reply$ = and unrequired then repeat do 
clear"area 21, 1, 21, old__margin 



end do 

u help key$ = 



10 



81699 return 

83000 go to 11200 

%include "usr_root: [software. intouch] guide_3hell_intl . inc" 



90000 
99999 end 



m 

X 



Directory D4 : [PRODUCTION :-^'TMS . SRC] 



• B . COM; 2 

BARCODE. DIR; 1 
CENT. INT; 135 
CONTRACT_NO. INT; 8 
C0NVERT1.INT;2 
CONVERT2.INT;2 
C0NVERT4.INT;1 
CONVERTS. INT; 3 
FIXMRR.INT;2 
G0V.DEF;1 
GOV.STR; 1 
GOVMOD. INT; 7 
GOVMODSUB.INT; 7 
GOVRPT. INT; 8 
G0VSPM0D.INT;8 
GOVTPSUB. INT; 8 
INAMOD. INT; 2 
INASPM0D.INT;2 
INATOL. INT; 2 
INQMRR_MAIN. INT; 2 
INQOTMSOOO . INT; 4 
INQPART_MAIN, INT; 2 
INQRR__MAIN. INT; 3 
INQTOOL_MAIN. INT; 1 
INQTXT_MAIN. INT; 2 
LAST_INV.DAT; 6 
MAINTAIN. INT; 1 
MODELRPT. INT; 10 
MODSUBl . INT; 4 0 
MOD_MASS . DAT; 5 
MRR. DEF; 1 
MRR. INT; 80 
MRR.MAIN;33 
MRR. STR; 3 
MRR_MAIN. INT; 7 

0. LIS; 4 

OTMSOOO . INT; 31 
OTMS_SRC_DIR. STR; 1 

OUT. LIS; 8 
PART2 .DEF; 1 
PART2 .FDL; 2 
PART2 .MAIN; 8 
PART2 . STR; 1 
PARTMOD . INT; 3 
PARTM0D2 . INT; 18 
PARTMODSUB, INT; 4 
PARTM0DSUB2 . INT; 9 
PARTRPT. INT; 11 
PARTRPT . INT_IMG; 1 
PARTRPT2 . INT; 8 
PARTS.DAT; 1 
PARTS .DEF; 2 
PARTS.FDL;2 
PARTS .MAIN; 2 
PARTS . STR; 1 
PARTSPMOD . INT; 5 
PARTSPMOD . INT_IMG; 1 

PARTSPM0D2 . INT; 4 9 
PARTSUB. INT; 3 
PARTSUB2 . INT; 12 
PART__MAIN. INT; 4 
REPORTl . GUIDE; 1 



1 
1 

6 
5 
2 
2 
5 
5 
42 
27 
1 
39 
44 
38 
55 
43 
38 
56 
39 
316 
12 
315 
316 
318 
316 
539 
315 
35 
40 
0 
27 
42 
14 
1 

316 
7 
13 
1 

1381 
27 

4 
13 

1 
35 
36 
40 
40 
35 
854 
35 
144 
27 

4 
13 

1 
51 

854 

52 

40 

40 
315 
1 



• 8-JUN-1994 13:26:20.35 
6-APR-1996 09:30:26.76 

4- MAY-1996 13:32:37.86 
6-APR-1996 09:52:46.17 

5- 0CT-1996 12:39:48.66 
25-OCT-1996 08:23:26.72 ' 
17-OCT-1996 12:03:09.65 
25--OCT-1996 14:40:23.63 

6- FEB-1995 14:30:03.82 ^ 
8-JUN-1994 07:37:56.16 
8-JUN-1994 07:28:37.26 

15-JUL-1995 13:02:36.61 
30-MAY-1995 12:27:59.16 
15-JUL-1995 13:03:14.65 
30-MAY-1995 12:28:51.47 
30-MAY-1995 12:29:43.84 
20-OCT-1995 10:19:43.40 

3- NOV-1995 13:47:33.33 
20-OCT-1995 10:20:38.18 

18- SEP-1995 12:30:39.88 

19- SEP-1995 07:55:37.40 
18-SEP-1995 12:34:55.08 
18-SEP-1995 12:38:22.09 
18-SEP-1995 12:04:50.50 
18-SEP-1995 12:42:11.01 

4- MAY-1996 13:21:42.93 
lO-SEP-1992 11:16:26.20 

3-JUN-1993 09:25:56.49 
3-JUN-1993 12:48:05.47 
6-APR-1996 09:52:52.46 
16-JUL-19 94 13:0^:00 .40 

15- JUL-1995 12:57:52.69 
2-SEP-1994 12:30:38.82 

20-SEP-1994 13:21:53.77 

20- JUL-1995 14:37:44. 68 
25-OCT-1996 15:25:58.51 
25-OCT-1996 10:57:15.59 

21- OCT-1995 11:36:39.85 

6- APR-1996 09:21:24.28 

16- OCT-1996 10:09:41.12 

17- OCT-1996 07:52:33.67 
25-OCT-1996 10:21:33.98 

16- OCT-1996 09:32:41.15 
15-JUL-1995 13:01:23.06 

9-NOV-1996 09:34:08.32 
9-NOV-1996 10:08:49.12 
9-NOV-1996 10:11:21.45 
9-NOV-1996 10:02:18.37 
9-NOV-1996 10:03:09.35 
9-NOV-1996 10:05:29.92 

7- JUN-1994 15:49:13.99 
7-JUN-1994 15:41:34.28 
5-OCT-1996 11:44:30.77 
5-OCT-1996 12:32:23.86 
7-JUN-1994 15:42:48.74 

12-OCT-1996 10:45:04.97 

25-OCT-1996 10:52:31.13 
9-NOV-1996 10:53:21.70 

30-MAy-1995 12:25:44.86 
9-NOV-1996 11:00:17.56 

17- OCT-1996 13:13:23.64 
25-SEP-1992 12:20:14.38 



Program: Shop Day Generator Utility 

Package: Macpac/D Control File 

Author : Bruce Dickens 

Date : March 13/ 1995 



Purpose 



Provide a method to generate 9998 
contol file records for any year. 



1000 



MAIN LOGIC SECTION 

Ask for any calendar year and generate all MacPac/D 
9998 control file records for that year for input into 
the MacPac\D update facility. o « o « « 

%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%'%%%%%%%%%%%-%^'^%^***^****^^***^ 



input 'Calendar Year to Generate? 
open #l:name ' calgen . li s ' , access 

option base 0 
dim wkdyr$ (28) 



a = year%/28 
c = mod (year%/ 28) 
b = year%/4 
d = mod {year%, 4) 
if d = 0 then 

e = 12 
else 

e = 11 
end if 



w)cdyr$ (0) 
w)cdyr$ (1) 
wkdyr$ (2) 
w)cdyr$ (3) 
wkdyrS (4) 
wkdyrS (5) 
wkdyrS (6) 
wkdyrS (7) 
wkdyr$ (8) 
wkdyrS (9) 
wkdyrS (10) 
wkdyr$ (11) 
wkdyr$ (12) 
wkdyrS (13) 
wkdyr$ (14) 
wkdyr$ (15) 
wkdyr$ (16) 
wkdyr$ (17) 
wkdyrS (18) 
wkdyrS (19) 
wkdyrS (20) 
WkdyrS (21) 
wkdyrSn2) 
WkdyrS (23) 
WkdyrS (24) 
wkdyrS (25) 
wkdyrS (26) 
WkdyrS (27) 
WkdyrS (28) 



- "fri 



= "sun 



_ M 



n 



ti 



_ n 



n 



mon 
tue" 
wed" 
fri" 
sat" 

sun" 

. » « 
mon 

wed" 

"thu" 

"fri" 

"sat" 

mon 

"tue" 

"wed" 

thu" 

sat" 



un 



_ M 



n 

n 



n 



men" 
tue" 
thu" 
fri" 
sat" 
sun" 
tue" 
wed" 
thu" 
fri" 



days = 
f = c 



(YYYY) 
output 



Year% 



5000 



option base 0 



.'BDickensOOOOOl 

!BDickens000002 

!BDickens000003 

!BDickens000004 

!BDickens000005 

!BDickens000006 

,'BDickens000007 

IBDickensOOOOOB 

!BDickens000009 

!BDickens000010 

IBDickensOOOOll 

!BDickens000012 

!BDickens000013 

! BDickens000014 

!BDickens000015 

!BDickens000016 

!BDickens000017 

!BDickens00O0l8 

!BDickens000019 

!BDickens000020 

!BDickens000021 

!BDickens000022 

!BDickens000023 

!BDickens000024 

!BDickens000025 

!BDickens000026 

!BDickens000027 

!BDickens000028 

!BDickens000029 

!BDickens000030 

!BDickens000031 

!BDickens000032 

!BDickens000033 

!BDickens000034 

!BDickens000035 

!BDickens000036 

!BDickens000037 

!BDickens000038 

!BDickens000039 

!BDickens000040 

!BDickens00D041 

!BDickens000042 

!BDickens000043 
!BDickens000044 

!BDickens000045 



dim wkd$ (7) 
wkd$(0) ■■ 

wltdSd) 

wkd$ (2) 

wkd$ (3) 

wkd$ (4) 

wkd$ (5) 

wkd$ (6) 

'°I/wkdS (g? = wkdyrS (f ) then i 
next g 



«fri" 
"sat" 
"sun" 
"mon" 
"tue" 
"wed" 
"thu" 



= g 



6000 



dim mo$(12) 
mo$ (1 
mo$ (2 
mo$ (3 
mo$ (4 
mo$ (5 
mo$ { 6 
mo$ (7 
mo$ (8 

moS (9 
mo$(10) 

mo$(ll) 
mo$ (12) 



JAN" 
FEB" 
MAR" 
'APR" 
'MAY" 
•JUN" 
■JUL" 
»AUG" 

'SEP" 
'OCT" 
'NOV" 
'DEC" 



day% = 0 

mo% = 0 
shopday% = 0 

count% = 0 

do until mo% = i2 
mo% = mo% + 1 

for day% = 1 to 31 
h = mod(irV) 
cal$ = str$(year%) 



+ ipad$(str$(mo%) ;2, '0' ) 



iBDickens000046 
BDiclcens000047 
BDickens000048 
BDickens000049 
BDickensOOOOSO 
BDickensGOOOSl 
BDickens000052 
BDickens000053 
BDickens000054 
BDickens000055 
BDickens000056 

BDickens000057 
BDickens000058 
BDickens000058 
BDickens000059 
BDickens000060 
BDickensOOOObl 
BDickens000062 
BDickens000063 
BDickens000064 
BDickensOOOOSS 
BDickens000066 
BDickens00G067 
BDickensOOOOeS 

iBDickens000069 
iBDickensOOOO'?0 
iBDickensO0O071 
tBDickens000072 



BDickens000073 
BDickens000074 
BDickens000075 
BDickens000076 
BDickens000077 
BDickens000078 



12000 



12100 



•fflraai:rrr::;;:;::::==^^^ 

%$%%%%%U%%%%%%%%%^^J***3f,^jrsJop days and lists 

asuu::-- ^ 

if d = 0 then 
goto 12100 

^Ml calS = strS(year%) 
end if 

cal$ = str$(year%) 
cal$ = str$ year% 
cal$ = str$ year% 

cal$ = st^! y^^^! 
cal$ - strS year% 
cal$ = str$(year%) 



"0229" then goto 13500 



if 
if 
if 
if 
if 
if 



+ 

+ 
+ 
+ 
+ 



"0230" 
"0231" 
"0431" 
"0631" 
"0931" 
"1131" 



then 
then 
then 
then 
then 
then 



goto 
goto 
goto 
goto 
goto 
goto 



13500 
13500 
135C0 
13500 
13500 
13500 



shopday% = 1 
goto 13000 



"0101" then 



z 



if wkd${h) = "mon" and cai$ = str$ (year%) + "0907" then goto 13000 



12500 
13000 



13500 



Thanksg 
if wkd$(h) 
if wkd$(h) 
if wkd$(h) 
if v/kd$(h) 
if wkd$(h) 
if wkd$(h) 
if wkd${h) 
if wkd$(h) 
if wkd$(h) 
if wkd${h) 
if wkd$(h) 
if wkd${h) 
if wkd$(h) 
if wkd$(h) 



ivxng 
= "thu 
"fri 
"thu 
"fri 
"thu 
"fri 
"thu 
"fri 
"thu 
"fri 
"thu 
"fri 
"thu 
"fri 



(4th Thursday in November) 



" and cal$ 
" and cal$ 
" and cal$ 
" and cal$ 
" and cal$ 
" and cal$ 
" and cal$ 
" and cal$ 
" and cal$ 
" and cal$ 
" and cal$ 
and cal$ 
and cal$ 
and cal$ 



str$ (year% 
str$ (year% 
str$ (year% 
str$ (year% 
str$ (year% 
str$ (year% 
str$ (year% 
str$ (year% 
strS (year% 
str$ (year% 
str$ (year% 
str$ (year% 
str$ (year% 
str$ (year% 



Christmas Break (December 
if wkd$(h) = "fri" and cal$ = 
if wkd$(h) = "mon" and cal$ = 



+ 
+ 

+ 
+ 

4- 
+ 

+ 
+ 
-f- 
+ 



"1122" 
-1123" 
"1123" 
"1124" 
"1124" 
"1125" 
"1125" 
"1126" 
"1126" 
"1127" 
"1127" 
"1128" 
"1128 
"1129 



ir 



It 



+ "1222 
4- "1223 



if 
if 
if 
if 
if 
if 
if 
if 



cal$ = 
cal$ = 
cal$ = 
cal$ = 
calS = 
cal$ = 
cai$ = 
cal$ = 



str$ (year% 
str$ (year% 
str$ (year% 
str$ (year% 
str$ (year% 
strS (year% 
str$ {year% 
StrS {year% 



+ 

4- 

+ 
+ 
4- 



"1224" 
"1225" 
"1226" 
"1227" 
"1228" 
"1229" 
"1230" 
"1231" 



25th) 

str$ (year% 

str$ (year% 

then goto 13000 

then goto 13000 

then goto 13000 

then goto 13000 

then goto 13000 

then goto 13000 

then goto 13000 

then goto 13000 



shopday% = shopday% + 1 



then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 
then 



goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 
goto 



13000 
13000 
13000 
13000 
13000 
13000 
13000 
13000 
13000 
13000 
13000 
13000 
13000 
13000 



then goto 13000 
then goto 13000 



i = i + 1 

count% = count! + 1 . 

k$ = cal$(3:4) + IpadS (strS (shopday%) , 3, 0 
m$ = moS(mo%) 4 ' ' + cai$[7:81 -f S ' ^cal$[l:4] 
print n: ' 99982 '; cal$;' 



cal$[3:8); k$ 



next day% 
loop 



99999 end 



!BDickens000079 
!BDickens000080 

!BDickens000081 



3 



g; 
-n 



Attachment 1 



Menu request: 



BRUCED> sint calgen /vyyyw 1996 

Calendar Year to Generate? (YYYY) ? l^yb 

1 PALGEN is the executable. 

2: calendar Year to Generate? (YYYY)? is the prompt. 
3. 1996 is the reply. 

algorithm put in place of all those pages of 9998 records, 
definitions . 



9998219960101 

9998219960102 

9998219960103 

9998219960104 

9998219960105 

9998219960106 

9998219960107 

9998219960108 

9998219960109 

9998219960110 

9998219960111 

9998219960112 

9998219960113 

9998219960114 

9998219960115 

9998219960116 

9998219960117 

9998219960118 

9998219960119 

9998219960120 

9998219960121 

9998219960122 

9998219960123 

9998219960124 

9998219960125 

9998219960126 

9998219960127 

9998219960128 

9998219960129 

9998219960130 

9998219960131 

9998219960201 

9998219960202 

9998219960203 

9998219960204 

9998219960205 

9998219960206 

9998219960207 

9998219960208 

9998219960209 

9998219960210 

9998219960211 

9998219960212 

9998219960213 

9998219960214 

9998219960215 

9998219960216 

9998219960217 

9998219960218 

9998219960219 

9998219960220 

9998219960221 

9998219960222 

9998219960223 

9998219960224 

9998219960225 

9998219960226 

9998219960227 

9998219960228 

9998219960229 

9998219960301 

9998219960302 

9998219960303 

9998219960304 

9998219960305 

9998219960306 



96010196001 

96010296001 

96010396002 

96010496003 

96010596004 

96.010696004 

96010796004 

96010896005 

96010996006 

96011096007 

96011196008 

96011296009 

96011396009 

96011496009 

96011596010 

96011696011 

96011796012 

96011896013 

96011996014 

96012096014 

96012196014 

96012296015 

96012396016 

96012496017 

96012596018 

96012696019 

96012796019 

96012896019 

96012996020 

96013096021 

96013196022 

96020196023 

96020296024 

96020396024 

96020496024 

96020596025 

96020696026 

96020796027 

96020896028 

96020996029 

96021096029 

96021196029 

96021296030 

96021396031 

96021496032 

96021596033 

96021696034 

96021796034 

96021896034 

96021996035 

96022096036 

96022196037 

96022296038 

96022396039 

96022496039 

96022596039 

96022696040 

96022796041 

96022896042 

96022996043 

96030196044 

96030296044 

96030396044 

96030496045 

96030596046 

96030696047 



JAN 01 
JAN 02 
JAN 03 
JAN 04 
JAN 05 
JAN 06 
JAN 07 
JAN 08 
JAN 09 
JAN 10 
JAN 11 
JAN 12 
JAN 13 
JAN 14 
JAN 15 
JAN 16 
JAN 17 
JA}i 18 
JAN 19 
JAN 20 
JA^J 21 
JAN 2 2 
JAN 23 
JPJi 2 4 
JAN 2 5 
JAN 2 6 
JAN 2 7 
JAN 28 
JAN 29 
JAN 30 
JAN 31 
FEB 01 
FEB 02 
FEB 03 
FEB 04 
FEB 05 
FEB 06 
FEB 07 
FEB 08 
FEB 09 
FEB 10 
FEB 11 
FEB 12 
FEB 13 
FEB 14 
FEB 15 
FEB 16 
FEB 17 
FEB 18 
FEB 19 
FEB 20 
FEB 21 
FEB 22 
FEB 23 
FEB 2 4 
FEB 25 
FEB 2 6 
FEB 27 
FEB 2 8 
FEB 2 9 
MAR 01 
MAR 02 
MAR 03 
MAR 04 
MAR 05 
M7VR 06 



1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 



z 



9998219960307 
9998219960308 
9998219960309 
9998219960310 
9998219960311 
9998219960312 
9998219960313 
9998219960314 
9998219960315 
9998219960316 
9998219960317 
9998219960318 
9998219960319 
9998219960320 
9998219960321 
9998219960322 
9998219960323 
9998219960324 
9998219960325 
9998219960326 
9998219960327 
9998219960328 
9998219960329 
9998219960330 
9998219960331 
9998219960401 
9998219960402 
9998219960403 
9998219960404 
9998219960405 
9998219960406 
9998219960407 
9998219960408 
9998219960409 
9998219960410 
9998219960411 
9998219960412 
9998219960413 
9998219960414 
9998219960415 
9998219960416 
9998219960417 
9998219960418 
9998219960419 
-9998219960420 
9998219960421 
9998219960422 
9998219960423 
9998219960424 
9998219960425 
9998219960426 
9998219960427 
9998219960428 
9998219960429 
9998219960430 
9998219960501 
9998219960502 
9998219960503 
9998219960504 
9998219960505 
9998219960506 
9998219960507 
9998219960508 
9998219960509 
9998219960510 
9998219960511 



96030796048 
96030896049 
96030996049 
96031096049 
96031196050 
96031296051 
96031396052 
96031496053 
96031596054 
96031696054 
96031796054 
96031896055 
96031996056 
96032096057 
96032196058 
96032296059 
96032396059 
96032496059 
96032596060 
96032696061 
'96032796062 
96032896063 
96032996064 
96033096064 
96033196064 
96040196065 
96040296066 
96040396067 
96040496068 
96040596069 
96040696069 
96040796069 
96040896070 
96040996071 
96041096072 
96041196073 
96041296074 
96041396074 
96041496074 
96041596075 
96041696076 
96041796077 
96041896078 
96041996079 
96042096079 
96042196079 
96042296080 
96042396081 
96042496082 
96042596083 
96042696084 
96042796084 
96042896084 
96042996085 
96043096086 
96050196087 
96050296088 
96050396089 
96050496089 
96050596089 
96050696090 
96050796091 
96050896092 
96050996093 
96051096094 
96051196094 



MAR 07 
MAR 08 
MAR 09 
MAR 10 
MAR 11 
MAR 12 
MAR 13 
MAR 14 
MAR 15 
MAR 16 
MAR 17 
MAR 18 
MAR 19 
MAR 20 
MAR 21 
MAR 22 
MAR 23 
tAAR 24 
MAR 2 5 
lAAR 2 6 
MAR 2 7 
MAR 28 
MAR 2 9 
lAAR 30 
MAR 31 
APR 01 
APR 02 
APR 03 
APR 04 
APR 05 
APR 06 
APR 07 
APR 08 
APR 09 
APR 10 
APR 11 
APR 12 
APR 13 
APR 14 
APR 15 
APR 16 
APR 17 
APR 18 
APR 19 
APR 20 
APR 21 
APR 22 
APR 23 
APR 24 
APR 25 
APR 26 
APR 27 
APR 28 
APR 29 
APR 30 
MAY 01 
MAY 02 
MAY 03 
MAY 04 
MAY 05 
MAY 06 
MAY 07 
MAY 08 
MAY 09 
MAY 10 
MAY 11 



1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 
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9998219960512 
9998219960513 
9998219960514 
9998219960515 
9998219960516 
9998219960517 
9998219960518 
9998219960519 
9998219960520 
9998219960521 
9998219960522 
9998219960523 
9998219960524 
9998219960525 
9998219960526 
9998219960527 
9998219960528 
9998219960529 
999821996Q530 
9998219960531 
9998219960601 
9998219960602 
9998219960603 
9998219960604 
9998219960605 
9998219960606 
9998219960607 
9998219960608 
9998219960609 
9998219960610 
9998219960611 
9998219960612 
9998219960613 
9998219960614 
9998219960615 - 
9998219960616 
9998219960617 
9998219960618 
9998219960619 
9998219960620 
9998219960621 
9998219960622 
9998219960623 
9998219960624 
-9998219960625 
9998219960626 
9998219960627 
9998219960628 
9998219960629 
9998219960630 
9998219960701 
9998219960702 
9998219960703 
9998219960704 
9998219960705 
9998219960706 
9998219960707 
9998219960708 
9998219960709 
9998219960710 
9998219960711 
9998219960712 
9998219960713 
9998219960714 
9998219960715 
9998219960716 



96051296094 

96051396095 

96051496096 

96051596097 

96051696098 

96051796099 

96051896099 

96051996099 

96052096100 

96052196101 

96052296102 

96052396103 

96052496104 

96052596104 

96052696104 

96052796104 

96052896105 

96052996106 

96053096107 

96053196108 

96060196108 

96060296108 

96060396109 

96060496110 

96060596111 

96060696112 

96060796113 

96060896113 

96060996113 

96061096114 

96061196115 

96061296116 

96061396117 

96061496118 

96061596118 

96061696118 

96061796119 

96061896120 

96061996121 

96062096122 

96062196123 

96062296123 

96062396123 

96062496124 

96062596125 

96062696126 

96062796127 

96062896128 

96062996128 

96063096128 

96070196129 

96070296130 

96070396131 

96070496131 

96070596132 

96070696132 

96070796132 

96070896133 

96070996134 

96071096135 

96071196136 

96071296137 

96071396137 

96071496137 

96071596138 

96071696139 



MAY 12 
MAY 13 
MAY 14 
MAY 15 
MAY 16 
MAY 17 
MAY 18 
MAY 19 
MAY 20 
MAY 21 
MAY 22 
MAY 23 
MAY 24 
MAY 25 
MAY 2 6 
MAY 2 7 
MAY 2 8 
MAY 2 9 
MAY 30 
MAY 31 
JUH 01 
JU^J 02 
JUN 03 
JUN 04 
JUN 05 
JUN 06 
JTJN 07 
Jini 08 
JUN 09 
jmJ 10 
JUN 1 1 
JUN 12 
JUN 13 
JUN 14 
JUN 15 
JUN 16 
JUN 17 
JUN 18 
JUN 19 
JUN 20 
JUN 21 
JUN 22 
JUN 23 
JUN 24 
JUN 2 5 
JUN 26 
JUN 27 
JUN 28 
JUN 29 
JUN 30 
JUL 01 
JUL 02 
JUL 03 
JUL 04 
JUL 05 
JUL 06 
JUL 07 
JUL 08 
JUL 09 
JUL 10 
JUL 11 
JUL 12 
JUL 13 
JUL 14 
JUL 15 
JUL 16 



1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 
1996 



9998219960921 
9998219960922 
9998219960923 
9998219960924 
9998219960925 
9998219960926 
9998219960927 
9998219960928 
9998219960929 
9998219960930 
9998219961001 
9998219961002 
9998219961003 
9998219961004 
9998219961005 
9998219961006 
9998219961007 
9998219961008 
9998219961009 
9998219961010 
9998219961011. 
9998219961012 
9998219961013 
9998219961014 
9998219961015 
9998219961016 
9998219961017 
9998219961018 
9998219961019 
9998219961020 
9998219961021 
9998219961022 
9998219961023 
999821-9961024 
9998219961025 
9998219961026 
9998219961027 
9998219961028 
9998219961029 
9998219961030 
9998219961031 
9998219961101 
9998219961102 
9998219961103 
^9998219961104 
9998219961105 
9998219961106 
9998219961107 
9998219961108 
9998219961109 
9998219961110 
9998219961111 
9998219961112 
9998219961113 
9998219961114 
9998219961115 
9998219961116 
9998219961117 
9998219961118 
9998219961119 
9998219961120 
9998219961121 
9998219961122 
9998219961123 
9998219961124 
9998219961125 



96092196186 

96092296186 

96092396187 

96092496188 

96092596189 

96092696190 

96092796191 

96092896191 

96092996191 

96093096192 

96100196193 

96100296194 

96100396195 

96100496196 

96100596196 

96100696196 

96100796197 

96100896198 

96100996199 

96101096200 

96101196201 

96101296201 

96101396201 

96101496202 

96101596203 

9610169620^3 

96101796205 

96101896206 

96101996206 

96102096206 

96102196207 

96102296208 

96102396209 

96102496210 

96102596211 

96102696211 

96102796211 

96102896212 

96102996213 

96103096214 

96103196215 

96110196216 

96110296216 

9611039621^ 

96110496217 

96110596218 

96110696219 

96110796220 

96110896221 

96110996221 

96111096221 

96111196222 

96111296223 

96111396224 

96111496225 

96111596226 

96111696226 

96111796226 

96111896227 

96111996228 

96112096229 

96112196230 

96112296231 

96112396231 

96112496231 

96112596232 



SEP 21, 1996 
SEP 22, 1996 
SEP 23, 1996 
SEP 24, 1996 
SEP 25, 1996 
SEP 26, 1996 
SEP 27, 1996 
SEP 28, 1996 
SEP 29, 1996 
SEP 30, 1996 
OCT 01, 1996 
OCT 02, 1996 
OCT 03, 1996 
OCT 04, 1996 
OCT 05, 1996 
OCT 06, 1996 
OCT 07, 1996 
OCT 08, 1996 
OCT 09, 1996 
OCT 10, 1996 
OCT 11, 1996 
OCT 12, 1996 
OCT 13, 1996 
OCT 14, 1996 
OCT 15, 1996 
OCT 16, 1996 
OCT 17, 1996 
OCT 18, 1996 
OCT 19, 1996 
OCT 20, 1996 
OCT 21, 1996 
OCT 22, 1996 
OCT 23, 1996 
OCT 24, 1996 
OCT 25, 1996 
OCT 26, 1996 
OCT 27, 1996 
OCT 28, 1996 
OCT 29, 1996 
OCT 30, 1996 
OCT 31, 1996 
NOV 01, 1996 
NOV 02, 1996 
NOV 03, 1996 
NOV 04, 1996 
NOV 05, 1996 
NOV 06, 1996 
NOV 07, 1996 
NOV 08, 1996 
NOV 09, 1996 
NOV 10, 1996 
NOV 11, 1996 
NOV 12, 1996 
NOV 13, 1996 
NOV 14, 1996 
NOV 15, 1996 
NOV 16, 1996 
NOV 17, 1996 
NOV 18, 1996 
NOV 19, 1996 
NOV 20, 1996 
NOV 21, 1996 
NOV 22, 1996 
NOV 23, 1996 
NOV 24, 1996 
NOV 25, 1996 



C 
C 

c 
c 
c 
c 

C 
C 
C 
C 
C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 
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9998219961126 

9998219961127 

9998219961128 

9998219961129 

9998219961130 

9998219961201 

9998219961202 

9998219961203 

9998219961204 

9998219961205 

9998219961206 

9998219961207 

9998219961208 

9998219961209 

9998219961210 

9998219961211 

9998219961212 

9998219961213 

9998219961214 

9998219961215 

9998219961216 

9998219961217 

9998219961218 

9998219961219 

9998219961220 

9998219961221 

9990219961222 

9998219961223 

9998219961224 

9998219961225 

9998219961226 

9998219961227 

9998219961228 

9998219961229 

9998219961230 

9998219961231 



96112696233 

96112796234 

96112896234 

96112996234 

96113096234 

96120196234 

96120296235 

96120396236 

96120496237 

96120596238 

96120696239 

96120796239 

96120896239 

96120996240 

96121096241 

96121196242 

96121296243 

96121396244 

96121496244 

96121596244 

96121696245 

96121796246 

96121896247 

96121996248 

96122096249 

96122196249 

96122296249 

96122396249 

96122496249 

96122596249 

96122696249 

96122796249 

96122896249 

96122996249 

96123096249 

96123196249 



NOV 

NOV 

NOV 

NOV 

NOV 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 

DEC 
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27, 
28, 
29, 
30, 
01, 
02, 
03, 
04, 
05, 
06, 
07, 
08, 
09, 
10, 

11, 

12, 

13, 

14, 

15, 

16, 

17, 

18, 

19, 

20, 

21, 

22, 

23, 

24, 

25, 

26, 

27, 

28, 

29, 

30, 

31, 



1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 

1996 
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— Century Conversion 
Bruce Dickens Apr 04, 1996 
open structure tools: name ' otms__src__dir : tools ' 

open #2 : name ' last^inv . dat ' , access ofP^V^ ^ 199^ 
print Tools 'Last Inventory ^at a Format Check for^^^^^^ 

print "ToolNo ^^lf=~= ======== 

print "===»—= 

print "Extract Data:" . . LAST INV 

print #2: "ToolNo - Model no , _ 



11 



2, 
2, 
2, 



ti 



c$ 
c$ 



print *2: "====== 

print #2: "Extract Data:" 

extract structure tools 

yy5 = lpad$ (element? (tools (last_inv), 3, / ) 
mm$ = lpad$ (element? (tools (last_inv , 1 , / ) 
dd$ = lpad$ (elements (tools (last inv) , ^, / ) 
^^^^ yy$ + "/" + mm? + "/" + ddS 
cl$ = change? (cc$, '/','' ) 
if cl$(l:2) < '50' then 

c$ = '20' + cl? 
else 

c?= '19' + cl$ 
end if 

include c? < ' 19960101' 
sort by tools (model) 
■sort by rpad$(c?,8, '0') 
if c?[l:8] < '19960101' then , , ^ ,> 

print tools (toolno); tab(23); tools model) ; S 

tab(35) ;tools(last_inv) ; tab('l'J) 

print #2: tools (toolno) ; tab(23); tools (model) ; 
^ tab(35) /tools (last_inv) tab (44) 

if valid { cl?, "digits" ) = 0 then , 
print; tab(53); " Date format is not digits _ 
print #2:; tab (53); " Date format is not digits 

if^valid ( cl?, "minlength 6" ) = 0 then 
print ;tab(50); " Date format is short _ 
print U: ;tab{50); " Date format is short 
end if 

if tools (last_inv) = "" then _ 
print ;tab(53); " Date format ^1^"^, ,. 
print t2: ;tab(53); " Date format is blanlc 

end if 

end if 
end extract 
print 

print "Sorted Data:" 
print 

for each tools , 

cl$ = Change? (tools (last_inv) , / , ) 

print tools (toolno) ; tab (23); tools (model) , & 

tab (35); tools (last inv) ; tab (44) ; c? 
print 92: tools (toolHo) ; tab(23); tools (model) ; & 
tab (35); tools (last inv); tab (44); c5 

'if valid { cT$, "digits" ) = O.then . 
print ;tab(53); " Date format is not ^xgits 
print #2: ;tab(53); " Date format is not digits 

if'^valid ( cl?, "minlength 6" ) = 0 then 
print ;tab(53); " Date format is short _ 
print #2: ;tab(53); " Date format is short 
end if 
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Serial Number: 08/725,574 ^ 
Art Unit: 2771 



CLAUDS 1-15 ARE PENDING 



1 The drawings are objected to on the grounds that FIG 2 does not conform to the claims as 
amended. In particular, is shows box 36 labeled: refonnat data in database. The summary of the 
invention, the statements at the bottom of page 3 of the Response, and the Reasons for Allowance 
below specifically preclude this step. This box should be removed. 



2. The following is an examiner's statement of reasons for allowance; 

The Prior Art of Record, taking into account the Affidavit of the inventor, received 
3/24/98, swearing behind the reference of the previous action, does not anticipate nor suggest the 
set of limitations of the claims, comprising the threshold year digits as used to detennine a pair of 
century digits to be used for computation, but without enlarging the number of date digits of the 
database. 

Any comments considered necessary by applicant must be submitted no later than the 
payment of the issue fee and, to avoid processing delays, should preferably accompany the issue 
fee. Such submissions should be clearly labeled "Comments on Statement of Reasons for 
Allowance." 



Serial Number: 08/725,574 



Page 3 



Art Unit: 2771 



3. Any inquiry concerning thif communication or earlier communications from the examiner 
should be directed to Wayne Amsbury whose telephone number is (703) 305-3828. The examiner 
can normally be reached on Monday-Thursday from 6:30 AM to 5:00 PM Eastern time. 

If attempts to reach the examiner by telephone are unsuccessful, the examiner's 
supervisor, Thomas G. Black, can be reached on (703) 305-9707. The fax phone number for this 

Art Unit is (703) 305-9731. 

Any inquiry of a general nature or relating to the status of this application or proceeding 
should be directed to the Group receptionist whose telephone number is (703) 305-9600. 
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We are often confronted with questions about 
storage ofdate inform^on, Many beUeve it is 
possible to reduce the millennium update work 
effort or minimize storage costs by working 
around the century. Jn this Journal we will 
explore some of the alternatives that we h(T>e 
employed and encountered 

fVe start this discussion with some reluctance. 
This stems from our belief that IT organizations 
should comply with industry and government 
standards, ANSI. FJFS. and ISO standards all 
state that the use ofYY is permitted only when the 
date references the current century, SQL also 
defines date to include the century. For these 
reasons we have continued to insist that the only 
correct definition of year is CCYY 

Standards are created to minimize decision 
making. Where the CCYT standard is not 
followed, we see the amount of time required to 
complete the miUennium update multiply Costs 
often rise to SUO, and even $3M per gross line 
of code. 

Because it is necessary to review and determine 
ho'w to ha>vile every dale calculation and 
comparison, we have found no significant savings 
in ^^nng to retain 6^gir dates. Workarounds 
cause production cycle times to increase. This 
requires additional work in performance tuning 
and in acquiring nttw processor resources. 

The number of storage options is infinite - We are 
providing here only a glimpse at the most 

common ones. The chaos that is caused in trying 
to keep track of what logic was used, documenting 

what the values mean, working around mistakes, 
and training new staff in all these rules costs the 
organization more in the long run. The variey 
should itself be a warning to managers to adopt a 
standard and enforce it Since most vendors are 
not following the standards in their response, the 
problem of passing date information will be 

complicated enough 



Vol ujy 



After all this Millennium problem. 




is about time! 



The foltowix^ approaches to deajtng wita Oates are 

zecQinmauied. ' huagiDe, if you can» an * . 
orsaziizadOT in winch dates are preseniced in aU the 
ways mentioKied here. This could be your 
pisanizatKML Every fonnat and techni^e that 
follows (and more) is being used by vendors as 
well as internal staff in order to '^mumnize*' the 
amount o^ work involved in the update. 

■ » * * 

Single Digit Century Values 

Thcxe art situabbns where space considerations 
and computational time requirements prohibit full 
' century storage. In those situations, some turn to 
several single digit century options. A common 
solution is to store the century as a single digit 
logic flag. 

This is the technique used by IBM's MVS 
operating syitcm date. Old releases of MVS, 
CICSuseda foHnatOCYYTNlMDD. This, and 
CYYMMDD, arc the nwst coiriinon rule used 
when employing a single digit for the year. MVS 
4.2 and CICS (EIEfDATlE) rctunx values in the 
form of OCYYDDD. In all these situations, C = 
"0" for "19" and " 1 " equals "20*^. But, even IBM 
is not consistent, In the AS/400 world/'O" is 
preceded the yeax in 1940 through 1999 and "T* is 
used for 2000 througji 2039. 

One of our dicnts bcg^ to use a one di^it code for 
ccnmiy: **0'* = 1800. = 1900. and "2*' = 2000. 
Another variation we have seen is CYYMMDDS 
which uses signed values The rule is that 1 900 
has the vahie of 0. 1 or +1 represents 2000, and -I 
represents 1800. No doubt there are applications 
which use oihex numbers and even character 
values. 

. Typical storage formats for single digit century- 
" 'are: ■ " ' . 



Richard Bergeon 
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Field Description 


Format 


Fwld 
Length' 


CYYMMDD 


BINARY 


2 


CVYMMDDS 

* 


, .PACKED 
SIGNED 


• -4 


MMDDCYYS ; 


PACKED 
SIGNED 


4 

* ^ 


CYVDDD 


CHARACTER 


, . 6 




. CHARACTER 




CYY/MMA)D 


CHARACTER 


9 



RUG 



914 432 7200 TO 85434827 



Digit. 



20 '99 11=29 FR 

jLucions wews 

3 7; 16AM FROM DATA DIMENSIONS. INC 206 68S 1099 



P. 04 



P. 2 



July* 1996 



Htc MilleiOTium Journal 



VoLILIV 




Tbc use of the si^gUwIigit ccfltary docs no^ 
any update work, in feet, its adds to it since some 
logic must be instalki to inte^ 

place the foil ccntuxy in the output fields. 

* ■ • - 

» . 

Dispbctd Pates 

Another icchniqwe we have seen used is the 
"dispbced date*'. The year value stox ed is the 
difference calcwbled by subtract 
100. The year 1995 is stored a$ the value **5". In 
2005 the \^uc stared will be "-3**. 

Some organizations use *'9*5 compliment*' - storing 
the difference the year subtraaed from 99 An 
example, 95 subtraa from 99 gives a value of 05. 
In 2005, 05 is subtracted from 99 giving 94. 
These techniques require the addition of an 
arithmetic step every place where the date is 
validated, stored, retrieved and displayed. Sorts 
qan be tricky. The 9 $ compliment for the dzxei 98 
. through 02 ore 02, 01, 99, 98, and 97 

One ditftt adds 30 to the year, truncates di^c value 

10 two posmons, and dwa compares ^ 

30. iftheyearK'^5^ i!«vahiew25.Any\'ah3e 

less Aan 30 is assigned a century value of 1 900, 
If Ac year is "IKr 4c calculated value becomes 

30. The cenluiy is 2000. This arrthmeric process 
is obviously associated with a logic process It 
works a little better for sorts Useof it becomes 
difficult if the field contains a date less than '10''\ 
It would necessary to use an increment of ''40' 
Sometimes several increment values are used b the 
isame program. 

Logic-based Century Detennination 

Some organizations try desperately to hold on to 
their 6-digxt date standard Here arc two examples 
of what is done to work around two-digit years. 
rhc first, ^viodiwwi^^ is only recommended as 
.tasqpOfary ipcasure. 

"Tta windowing, the two digit years are left alone in 
thefiles. Aba5«yeari$$eJcctrf(e.g.,**5O'0^w^ 
evciy ym stannig (<>^ 

dkin)"5(rafOUsft "99" is treated as a 1^ date, 

and yia' *2» ^'^^^ 
as 2000. 

■^rts require an exit, and different date fieWs may 
i^re a different frame. Again, every place 
where dates are used in calculations, comparisons 
Copyright 1995, All rights reserved 



or di^lays^ it is nacessaiy to add additional logic. 
The biggest prd>lem with using windowing is diai 
it wdn allom^ sdl processes to continue to 
even v^le it produces BBcoiTDCt results. 

There is a jiogical way of dctcraMning the century 
that always works correctly, h is often possible to 
derive a logical answer about What ceitcury it is 
based on tte contents of aixstber field in die 
database. Here are t\i'o examples: 

1 . CalcuIatiM of current age (cuiicnt year minus 
birth year) gives an answer of *'09'*. This 
could mean 9 or 109 years of age. If a policy 
charge is high, then one can logically assume 

that the age is 109. A "relationship'* indicator 
says the person is a "child'Vthco the age is 9. 

2 . Calculation of mortgage expiration century can 
be dfiCemuned by tooking at the acquisition 
date for wbidi the common routine has fixed 
the century - if Ae acquisition year is 1994, 
then fee mortgage e3q>iration date must be later 
(i.e., 44 must be 2044). 

Lilian bates 

On October 15, 15S2 the Gregorian Calendar was 
adopted. Its designer was Lmgi Lilio - thus the 
origin of ''Lilian*'. A Lilian ckx* is a counter 
incroncnted by the sysiafn at set intervals - usually 
100 ms. A subroutine calculates the date and time 
from the counter using a base date as the zero date 

While some products (e.g., IBM's LE/370) use the 
Gr^orian origin date as the base date, it is not a 
standard. Use Lilian dates with caution. 

1 . Aligning Lilian clodcs across diflTcrent 
products can be tricky. 

Common base dates arc Jan. 1, 0000, )an. U 1900, 
Jan. U 19(54. and Jan. 4, 1980. Tbc IBM MVS 
base date is 1/1/0000, DB/2's is 1/1/1800. ANSI 
COBOL reportedly is 1/1/1601, UNIX's clock is 
01/01/1970, SAS starts at 01/01/1980, and VMS 
uses the SrruAsonian date -November 17, 1858. 

t 4 

2. Know the limits of Ac system dock. 

The C0\uxD&r field size determines the limit of the 
calendar - Maointosb^s runs out on February 6, 
2040. The C (cbnipiiter language) calendar runs 
until Jahuary 18,2038. 

Data Oixnensions, Ir^ 
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Satisfyitig the Standard 

Meedog the standard may be possible without 
(sqpanding data storage . Some oiganiialions have 
saved Space by adopting standard storage fonnats, 
eKimnaring storage fonnats that ta^ 
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Fonnat 
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Field 


YYYYMMDD 


PACKED 
UNSIONED' 
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YYYYDDDS 


PACKED 
SIGNED 


4 




PACKED 
SIGNED 
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YYYYDDD 


CHARACTER 
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YYYYMMDD 


CHARACTER 
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Some of our. clients have dlecied to nmimzc the 
impact (oa data entry procedures, report and 
screen fonnats, and ceohiry loading procedures) by 
retaining old.fonnats and cxicnding the year fields 
The foUowring fonnats meet standards, but 
awkward to use in coniparisons or calculations. 
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Field 


MMDDYYYY 


PACKED 
UNSIGNED^ 




OMMDDYYYYS 


PACKED 
SIGNED 
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MMDDYYYY 


CHARACTER 


S 



Data himenams^ archiyes contain aver forty 
£ffermt formats Otat crgmizarions use to store 
Jates. We have Only mentioned a few here. 

Our messag^T If you want to simpli^ the >forlc of 
ihe milltrmium update, stick with the standards. 

trying to save rime by adopting an altemarive 
measure only costs more in the long run. There is 
no signtficans reduction in either analysts or 
testing rime: and the dollars saved in storage are 
offset by the costs of additional processing time, 

September Issoe: Update Strategies 
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DateServer ' 2000 

Computer Software Corp. Prepares 
Legacy Systems For Year 2UUU 



For many organizations, 
preparing legacy sys- 
tems to correctly proc- 
ess multicentury dates will 
likely require a major expendi- 
ture'of time and money over 
the next few years. Changes 
must be made to all applica- 
tion systems that make date 
field comparisons or calcu- 
lations using date field val- 
ues with only a two-digit 
representation for the year. 
Computer Software Corp.'s 
DateServer 2000 software 
offers a unique solution to 
significantly reduce the time 
and effort to prepare for 
processing in the year 2000 

„iid beyond. 

Tlie conventional approach to the year 
VOOO problem is to expand date field 
sizes to provide for date values with a 
four-digit vear. This file-conversion. or 
-sledgehammer.- approach is a costly 
solution for most enterprises. It requires 
special proarams to convert all date 
fields within all databases. Changes to 
all existina input screens and files are 
also required. It requires coding changes to 
all current programs that process the new 
input dates and the converted databases as 
well as changes to all output screens and 
reports. Finally, this conventional ap- 
proach requires the testing of all the new 
and changed programs, and a great deal ot 
coordination during the actual system con- 
version and implementation. 

No Database Conversions 

In contrast, the DateServer 2000 solu- 
tion eliminates the requirement to con- 
vert any files or databases. Usmg the 
familiar CALL statement interface, pro- 

10 
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PROGRAMS - 



SERVER 




Legacy 
System 



BATCH 
PROGRAMS 



arammers can access DateServer 2000 
routines to make date field compansons 
or calculations on all date fields in their 
present database formats, uuring pro- 
aram execution, DateServer 2000 rou- 
dnes will assign the appropriate century 
value, based on the system's current date 
and DateServer 2000 installation param- 
eters, to correctly perform requested date 
comparisons or calculations. 

One Program At A Time 

Eliminating the need for file or 
database conversions and the require- 
ment to expand input or output date for- 
mats, the DateServer 2000 solution 
simplifies the preparation and coordina- 
tion efforts required to process multicen- 
tury dates. Application programs may be 
changed, tested and implemented one 
program at a time without ^orry abou 
complex database interaction with other 
onTne or batch programs. Rather than 
havmg to fit a major database conversion 

into a busy project schedule, these apph- 
CIRCLE m on Reader Service Card A 



cation program change< 
could be merged with other 
project testing. 

DateServer 2000 software 
provides a comprehensi'-. e. 
efficient and convenient <e: 
of routines for date compari- 
son, calculation and or mj- 
nipulation. The routines 
support 36 date formats in- 
cluding character, packea 
and binar\' Gregorian and Ju- 
lian dates, and day (>/'uvv-; 
and relative day values lor 
all dates in the Gregorian cal- 
endar. The routines perfonr.: 
date validation: date compar- 
ison; conversion from one 

format to another; detemiina- 

tion of ^av of^veek and relative day val- 
ues: calculation of the ditference 
between any two dates in number or 
years and/or days: and determination or 
the date resulting from the addition or 
subtraction of any number of days to or 
from a given date. 

Even enterprises that choose the tiK 
conversion approach for some legac, 
systems could s.till use the DateSer^ e 
2000 solution for other systems. 
' Computer Software Corp. offers ver* 
sions of the DateSerx-er 2000 software t. 
operate in either an IBM MVS or IBN 
VSE environment. A CICS demonstra 
tion program is also included for CIC^ 
users. Priced on a tiered basis with mul 
tiple-site discounts, DateServer 200' 
software is available starting at SlO.OOi 
For more infonnation, contact Compute 
Software Corp., 19100 Detroit Roac 
Cleveland. OH 441 16. (800) 90S-200* 
Fax (216) 333-8288. or (216) 333-90b 

outside the United States. ^ 

— Chris Roher 
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Have you ever been in a car 

accident? Time seems to 

PETER slow down as you realize 
DE JAGER y^u*'*^ going to crash into 
the car ahead of you 
U s too late to avoid it — you're going 
to crash. All you can do now is watch it 
happen. 

The information systems community is 
heading toward an event more devastat- 
ing than a car crash. We are heading to- 
ward the year 2000. We are heading to- 
ward a failure of our standard date 
format: MM/DDA^- 
Unfortunately, unlike the car crash, 
time win ndt slow down 
for us. If anything, we re 
accelerating toward di- 
saster. 

This is a good news/bad 
news story. First the bad 
news: There is very little 
good news. There is no 
way to avoid the fact that 
our information systems 
are based on a faulty standard that will 
cost the worldwide computer community 
billions of dollars in pro- 
grammingefforl. 

Perhaps more important- 
ly, we are going to suffer a 
credibility crisis. We and 
our computers were sup- 



THE COST FOR 
PROGRAMMING 
TO ADJUST 
All SYSTEMS FOR 
THE YEAR 2000: 

$50 BILUON. 



Th^date 
chan^ in the 
year 2Q00 - an 
event that may 
triggerfatal 

errors in 
mission-critical 
systems - is 
on^ 2,308 days 
away. Many iS 

peopie are 
unprepared or 
unconcerned. 



posed to make lif^ easier; this was our 
promise. What we have delivered is a ca- 
tastrophe, I 

The problem is tjwofold: 
the date issue itsiHf and. 
more importantly, our re- 
luctance to address the 
problem. ' | 



THE COST WHEN 
YOU ADD DESIGN, 
MAMtGEMEN^ HARD- 
WARE, SOnWARE 
AND SUPPORT: 

$75 BILUON 




Problem ID 

What exactly is th^ "prob- 
lem"? To save ptorage 
space — and perhaps re- 
duce the amount I of keystrokes neces- 
sary 10 enter a year — most IS groups 
have allocated twi digits to the year For 
example, "1993'* i^ stored as "93" in our 
data files, and "2tor will be stored as 
•*00." These two-cffgitb«^ exist on mil- 
lions of data filet used a§"Tftftut to.mil 
lion s of amHltat ions. 

This, two-digit a^te affects data ma- 
nip ulatio/fT primajrlly subtractions and 
comparifetms. For Instance. 1 was born in 
1955. If I a^kOhe jcomputer to calculate 
how old 1 am toddy it subtracts 55 from 
93 and announces:that I'm 38. 

Sb far so good. But what 
ha[|pens in the year 2000? 
Th^ computer will sub- 
tract 55 from 00 and will 
state that I am -55 years 
E>oomsday, page 
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In DepthtDoomsd 



Doomsday ft^pai/em ,0w«!vofel|toW.TBn«eek8iu8tloldeD- 

TZZT^ ^ - on^i^tionlHcw^aa^daUfUes^iiow 

U you nave Booie uo» many malntefcaiice programmers? f 

want 10 6ort ttem Ijy date (e.g. IQ65. manymam n^^^^J^ ^^^^^ 

1909.1968), the resu^gse- I yL(^ mere calculations apd 

quence would be 1905. 1965, AVDUoETURL 'r"^ - .^ r^.' 

1966. However, if you add in a ||£g|Q| pg|| 



out 



It I ' » 




He^p»stMdMffi»lf^ 
ratIoiiaIiz©l»i»ife68Mt<^^ 
mainframe ColK>ipir«cg^^ 

-caUs; Kdowrfpi^flii^^ 
gramon^oaFCaii^^^M^r^ :- 

GPSAUrtsaUdatenMM^jiat 
appear to4»ntto<^a^^]Ffed 
dtefittttionsforeac&jd^ 
Ufltfed«adrtiaiiSE!lpdS||^^ 
wl^thertheje^stpi!^^^^^ 
or foin^^mgit 

onereUsertfa^Uflfea^^ 

names. Users <i?uffi^li^?fi^^ ' 
tbereare date conqw^tiiza^ 
canseproMemi^oraB^^ rt ft yn ft in e i 
. tbatwerenotantb^initiBlltst 



date record such as 2015, the 
computer, which reads only 
the last two digits of Ihe date, 
sees 05. 15. 65, 66 and sorts 
them incorrectly. 

These are just twoj types of 
calculations that aregoingto 
produce garbage. There are others. 

The task facing us is to identify and 
correct all the date data and check the 
integrity of all calculations . invoWing 
date information. We must correct the 
data residing in aU; data nies or write 
code to iiandle the problem. 



CODE 2000: 

7 QAYS PER 
FROGRAM. 



The starting point 

How do we identify t he problem data and, 
the associated calculations? We have 
few, if any. standards for labeling data 
used in date calculations. The only 
choice we have Is to examine each line of 

code and make the necessary changes. 

One IS person 1 know of performed^an even higher. "The truth is. 
internal survey and came up with t he fol- until we work through a com- 



_;to |he I/O processes of ev- 
e\y dppUcation. Can you en- 
ter poOO into your data 
scre^n^ or can you enterxmly 
two iligits. forcing the input 
ofOoj^Can your hard-copy re- 
porti print four digits? . 
The crisis is very real and 
potentiaUy very 6ostly. KenOrr. principal 
at the Ken Orr Ihstitute, and Larry Mar- 
tin, president oi Data Dimensions, Inc.. 
estimate that Fdrtune 50 organizations 
will each have (o spend about 35 to 40 
cents per line of code to convert all their 
existing systems to accept poMPM 
the change froim the year lUIML rnUtlllHni 
1 999 to 2000. U||l|» TlUC CAD 

That translates imo about ™ ' ""^ 
SdOmillion toStdOmillionfor ALL SYSTEMS: 

each company. The mind - - 

boggles at a Maintenance 
problem vWtb thM price tag. 
And : the costs could be 



! ! 
enlightened group. ! 

Typically, all! get are snickers and ! 
comments such as. "I won't be in this po- ■ 
sitlon or this company In the year 2000. 

It's not myproblejn." 
Thisattltudeinithecomputingcommu- 

nity is the real problem. It is very difficult 
for us to acknovifledge that we made a 
• litlle" error thi^t wUI cost cofripanice 
mUUons of dollare. It is also a "pay me 
now or pay me later" situation. 

'•We in the IS industry have not been 
paying our way, * says Gerald Weinberg, 
author of Quality Software Manage- 
ment and winner of the 199! J. D. Warni- 
er Prize for Excellence in Information 
Science. "We have been build ingup a na- 
tional debt* just as surely as the U.S.has 
been building up a money debt. It will bo 
paid by our children — our success<ii;i4 — 
one way or another ' Weinberg says. 
We don't have a choice. We must Hian 
addrcssingihe problem i(>- 
day or there won't bt* 
enougti time to solve it. 
Status quo means applica- 
tions that will pn)duif 
meaningtes.s results in the 
new millennium. 

Weinberg says he be- 
lieves this procrastination 
is an indication of deep 
management malaise. "If 



1.2 MIIUON 
MAN-VOWS. 



S^S^ intemalsurveyandcameupwiththefol- softuare engineerinR managers . inn,,, 

S3&S%-f. 'ow*ng-uUs:O.1,04sy„.8w„ud ^:^l2tTTZT::ZTZ manage a change .ha. tho.Wo ha. ..OflO 



faU in the year 2000. These 18 mission 
critical systems were made up of 8,174 
prograrasanddata-entry screens as we 11 

as some 3.313 databases. With less than 
seven years to go. someone is going to be 
workingovertime 



we are not goihg to really know.' 

says. 

1 have spoken at association meetings 
and seminars, and when 1 ask for a show 
of hands of people addressing the prob- 
lem, the response is underwhelming. If 1 



manage a change that they've had 1 .000 
years to prepare for h<>w can we e.vpet t 
them to manage a change that happens 
without notice? In other words, if ihis 
change causes a crisis in your organiza- 
tion, everything will cause a crisis in 



" lem the response IS uncerwoeimiiig. 11 1 w.^... ^-.- wr <^ . 

r-lTt^s *n.tial su.ey required ^Tone in iS re spondents, ,'m facing an your organisation - and often .o... 
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PH/SS 
AlffiRCGOHP. 

I415IS7M699 

Theproductreported?? helps tdeii- 
tifyaD date occurrences and thfihr 

primary and secondary relation' 
ships. It ts eaW tolocate aflCectcd 
data seta, databases, flies, data 
name definttionaand data storage 
locations, as well as da t a nimw ttse 
at fheline-of'CodeleveL 



Bearings firm goes on offense 



BY 
LORY 
ZOTTOU 
DIX 



SOnWUEEUCIKMiC* 

BSlBd as a''*xe^^neerln^ tool 

a p-Ray teatnitf ffe^g^ifBstisers 

U»eapaldlitytol4iUlgli»d^<^ 
eBati(mswttiilii«ltiogMiii.Tliiatt8 
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Dateandjtime tesHngtpin tor 
LasdT&^tibatdalmata; 

sttp porMl .w 

t(:fltiirtt&m!^gl"'^«^*'*^^^ 
outxeqp Wiigiks^aritfeterfay^ 
tern and BvittUiiitBfimM^^ 
job&nm ijttt^oifho same tune. 



Torrington Co, doesn't 
have time for seers pre- 
dicting dire consequences 
when the final lick of the 
clock strikes a change to 
the year 2000 That's be- 
cause this bearings manu- 
facturing company, a division of Inger- 
soll-Rand Co.. is too busy doing some- 
ihingabout it. 

In 199 1 . at thesuggestion of an employ- 
ee and as part of its drive toward total 
quality management. Torrington con- 
vened a seven-member team, headed by 
programmer/analyst Bob Hartman-Ber- 
her to lat kle the century date change is- 
sue. TheTorrington. Conn. -based tfompa- 

nv knew that because certain of its 
programs stored dates by their final two 
digits, a changeover to:, the year 2000 
could mean fatal ernvrs that might throw 
its global systems into an uproar. 

The group brainstormed ab<»ut pn)b- 
lems ureas — the eompany has a mix t>f 
mainframes, minii-omputers. IVs and U>- 
eal-area networks — and interNiewed 
businesspeople throughout the firm. 

Members took an invcntor>' of in-house 
nnd outside software pnKtuets They 
sent a questionnaire itt Torrington's tM» 
vendors (31) mainframe and minicomput- 
er. *iO PC) to gauge product support f<ir 



^ JUST DO IT 



Here's what's on Torrington's to-do 
Hst to prepare (or 2000: 



1 



■ Set BtabdardB. All in-house and 
vendor system files and any date 
fields wlllhiveafouiKliglt year. (Sta- 
tus: Done.) 



2 



■ Accommodate legacy systems. 

Despite its doove to a distributed envi- 
ronment, t^ company will main t ain 
its mainframes. It is actively seeking 
a mcdnfrara^ compiler that supports 
foiuHllgit ytors, something Its cui^ 
rent compiler doesn't do. (SUtus: In 
progress.) 



3 



be complete in 12 to 18 months.) 

4a Develop bridge modules. Some 
programa. especially those dealing 
with (orecastlng will need to work 
with the century date as early as 1996. 
These "critteal" systems (such as 
payroll and job scheduling) will need 
bridge modules lo handle century noU- 
over. These software fixes are a leds 
time-intensive alternative to chang- 
ing nathre code. (Status: WiU be com- 
plete in 12 to 18 months.) i 

5b Identify critical systems needing 
bridge modulea and prtorttiie them. 
(Status: In progress.) 



_ ■ Investigate and buy a data anal- 
ysis tool to identify location of date 
fields within programs. (Status: Will 



four-digit years. 

Vendor responses were encouraging: 
Of the iH^Hi aiainrrame and 6l»'Vh IM' ven- 
dors that returned the suney. nearly all 
of them either coul<l luvommodate the 
cenliirydatenr had fixes in the works 



6 



■ Do it. Put the recommendations 
in action. 



The in-house inventory showed ihm 
:«»'^.of Torringtitn s pingrnnis nml jr.^of 
it s files ami dalabiises ntimritl t-hii ii^t s. 
Hartman-IUTrier says. .\i hniiiN p»*r 
program and 40 hours per ilnttthMse (tie 
Iti reformtil. onlimd and n'lomi. ihe leiiin 
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I>i0epth; Doomsday 



wtUcjfti I tea crisis." 

The } lability of the Industry to even 
think a)>out such a project la trouble- 
some. "No one wants to step up to the la- 
sue — nnt (ISI iBonagBment, not.tHe ven- 
dors, n< t the Industry gurus," Orr says. 
"As wltl I all legacy systems, this problem 
is mesa; t expensive and unromontlc. No 
one wants to go In and tell management 
: they hate a multimillion-dollar require- 
ment Jupt lo keep the business running 
and that they really have nooptions." 

The riason nothing Is beingdone. says 
Capers jlones, chairman at Software Pro- 
duct! viiy Research, Inc., is that the soft- 
ware influstry isn't used lo taking long- 
term piievenlative steps. "1 expect that 
most cqmpanies will not start worrying 
ahoul l!he problem until 1999," Jones 
suyH. ■■IA>rsnme, this will be too late." 

IMow the (Jood news 

There is good news. Object-oriented sys- 
loms may be able to help, fttced wtlh the 
hugi' maintenance costs of fixing their 
systems, firms may opt to rewrite 8>'S-^ 
tems from scratch using object-oriented 
programming techniques. Tbm Love. 
IHM vice president of the Object-Orient- 
ed Group, is a proponent of this theory. 

Some companies are unveiling testing 
and inventory tools that may case the 
idenllfitalion of trouble spots. 

Others are hoping that bombarding 
people with information is the best rem- 
edy. To that end. William Goodwin in 
Brooklyn, N.Y.. publishes a newsletter 
t-ntitled 'Tick, Tick. Tick." which brings 
Kjgeiher people in the IS industry con- 
cerned about the impact of the year 2000. 

Hutisthewamingfallingon deaf ears? 



TICK, TICK, TICK 



■ \ 

f*\ feel nice (t^on^ 



Vlh's Bubs^rlM 



i , ^oice crying in the wll- 

idemeas;' ^ays B Bifua Pitts, one of Good 



expects the work load to be heavy. 

Costa have been a little trickier to pin- 
point. While Harlman-Berrier says 
worst-case costs to revamp systems 
rould reach S3.5 million, the best-case 
could be one-ten 1. 1 mat figure. 

Hartman-Burrier and Ken Kven. man- 
at;er of corporate support, hesitate lo 
commit to a number on project cost bc- 
cttu.se ()f the firm s move l«> a distributed 
setup. ' DtKtributed systems may mean 
we n-move some applications, keep oth- 
ers If we remove a system, we don't have 
In changi- il. rwlucing our labor efforts 



The Tonriogton aoooteam: ifnml i I'nu i 

n inrfflin .tttsttit AhstfU. f-.rHf/n liihi:- 
:h>i. thuvkr Ifrtiuhi, Hiff Hrf,rr. ittttt 
Itfturhttrft. Uitrttttnn-Hrrnrr 

KDd nmourt en. Hurtmun lU'rrier HHyn 
Wi- ran take a folt tip marki-r and Mtrlke 
pnigramh and fdeH fnun our list 
t MlH todvire lo other IS prof«»Httionul.'H tH 
h. plmiuplan. plan mid u<*i. uetTuet " Thr 
vcur2^)(HliHcoinHiK ■ 



and project manager 

at Berry Co, In bayton, Ohio. "Current 
econoihk! odndflUonp are Alaktag this 
problem morb djmcult to eddretis. Man- 
agement la focSueKdon fihort-tern results 
and l8 placlhplong-term negative conse- 
quences on th^ bpk burner." 

The next/seven years will be fiHed with 
dire predldtloW^ f'Vbtirare going to be- 
come vory^, very Ulrlff of millennium 



\ 



flioaners telling you that your software 
w 111 fait as It efiters the new millennium." 
s lys Nicholas Zvegintzov, pubUsber pf 
Software Maintenance News. "But be 
patient with them. There really Is some- 



; tjiing to be sakl for tjiem." 



C c Jagcr Is an Industry ejwakcr on the topics 
M) [ changD. creathflty and manogcmcntoUcch- 
n otogyi He can be reached at <4 16) 702-8706 or 
V a CompuServe (70f«1.2570) and MCI MaU 
( njEJAGER). 
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25,1.4.1 Decoded Time 

A decoded time is an ordered series of nine values that, taken together, represent a point in calendar 
time (ignoring leap seconds ): 

Second 

An iiiie^er between 0 and 59, inclusive. 
Minute 

An in^e^^er between 0 and 59, inclusive. 

Hour 

An ime^^er between 0 and 23, inclusive. 

Date 

An irne^^er between 1 and 3 1, inclusive (the upper limit actually depends on the month and year, 
of course). 

Month 

An imes^r between 1 and 12, inclusive, 1 means January, 2 means February, and so on; 12 
means December. 

Year 

An irnem- indicating the year A,D. However, if this inte ger is between 0 and 99, the ^^obvious" 
year is used, more precisely, that year is assumed that is equal to the integer modulo 100 and 
within fifty years of the current year (inclusive backwards and exclusive forwards). Thus, m the 
year 1978, year 28 is 1928 but year 27 is 2027. (Functions that return time in this format always 
return a fiill year number.) 

Day of week 

An integer between 0 and 6, inclusive; 0 means Monday, 1 means Tuesday, and so on; 6 means 
Sunday. 

Daylight saving time flag 



CLHS. Section 25.1.4.1 
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A ^Pn^ralized boolean that, iitrue, indicates that daylight saving time is in eflfect. 



Time zone 



A lime zone. 



The next figure shows de fined ncimes relating to decoded lime. 



aeco 



de-uni versal-tim£ qet-deco ded-ti 



me 



Figure 25-5, Defined names involving time in Decoded Time, 
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Date Server 2000 

Fastest Date 
Processing Routines 

for mainframe legacy application systems using a 
Windowing or Expansion Solution. 

Computer Software Corporation's DateServer 2000 software is currently called millions 
of times each day. It has been solving multi-century date processing problems for COBOL 
and Assembler legacy application systems since January, 1994. 



without expensive date field expansion and database conversions. 

without expensive changes to input screens, database fields, reports, etc. 

The DateServer 2000 solution is about . It's about preparing your legacy systems for 
a in the fijture, for all in the future And it's about saving a significant amount of 
MIS in the process. Our solution can deliver these benefits today, in a ft*action of the 
MIS that other multi-century approaches will require. 

Review DateSerA er^^' 2000 Benefits 

Review DateServer^^' 2000 Features 

Review DateServer^^' 2000 Date Fomiats 

Review DateServer^^' 2000 Perfonnaiice Data 



DATE 

se;r\t.r 




Eliminate Time Consuming Data Base Conversions. 
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Many legacy systems, comprised of both online and batch sub-systems, consist of 
hundreds of programs, thousands of modules, and millions of lines of code. Data files m a 
legacy system data base may be interactively used by hundreds of programs. The 
conventional approach to providing multi-century date capabilities requires the 
conversion of date formats in all data bases in each legacy system. This means new tile 
conversion programs, increased application program changes, complex system testing, 
and a highly-coordinated data base conversion and software implementation. It will likely 
take years of MIS time to convert some legacy systems using a conventional approach. 

Enter The New Century With Existing Data Bases: 

Using the DateServer 2000 solution*, no data base conversions are needed! All of your 
current legacy system's data base date formats can remain as they are until you decide (if 
you ever decide) to convert them to a different format. This means that the date formats 
now used in internal files, reports, screens, input cards, and imported files can remain 
unchanged. Since no data base conversions are needed, DateServer 2000 saves your MIS 
team a significant amount of time and resources that your company can invest into other 
strategic projects. 

It s About Time For Date Server 2000 



• Easy To Use 

DateServer 2000 software is accessed using the familiar CALL statement interface. It 
supports 36 different date formats, performs date comparisons, date validation, date anthmetic, 
and provides day-of-week Sanctions 



• Most Comprehensive 

DateServer 2000 provides a comprehensive set of routines to accomplish any of the 
functions required for muUi-century date processing. This includes the processing of invalid date 
values used for a special purpose, for example: all zeros or all nines in a date field indicating a 
date value lower or higher than any valid date. 



• Most Efficient 

DateServer 2000 routines are written in assembler to achieve maximum processing 
efficiency. In addition, each function is requested individually to eliminate any processing 
overhead that is not required to accomplish the requested fiinction, for example: the validation 
of each date field is not required to perform the comparison of two date fields. 



• Easy to Install 

DateServer 2000 requires an IBM® MVS, IBM VSE or equivalent environment. The 
software comes on a single diskette and can be installed in about one hour. A DateServer 2000 
CICS demonstration program is included, and a fi-ee trial period is offered. 
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• Relax on Friday, December 31, 1999 

You'll be able to enjoy your evening because you know that all of your legacy systems are 
100% ready for the year 2000 and beyond - and have been for years! 

Computer Software Corporation 

has been in operation since 1980. The company's founders have been providing mainframe 
computer solutions since 1965 and microcomputer solutions since 1978. Computer 
Software Corporation has developed specialized mainframe software products for the 
banking industry and specialized PC data collection software for the manufacturing and 
distribution industries. 

Computer Sofnvare Corporation 

24864 Detroit Road 

Cleveland, Ohio 44145 

1-800-908-2000 

FAX (440) 808-8086 

(440) 333-4420 outside the United States 

Visit our Home Page at www,dateserver,com 



E-Mail Computer Software Corporation at CSC^aXM-t^^im^om 



Return to - Reiietits - Features - Date Fonnats - l^erformance Data 



You are guest to visit DateServer™ 2uuO's Page since 11/25/96. 



* U.S. Patent No. 5.630, 118 

IBM is a registered trademark of International Business Machines Corporation. 
DateServer is a trademark or a registered trademark of 2000. Inc. 



© 1996, Computer Software Corporation. All rights resened. 
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Writing of calendar dates in all-numeric form (Appendix c iso Date standard) 



0 Introduction: 

In all forms of international traffic and exchange, dates must be clearly designated and able to be compared without any 
ambiguit}'. 

The International Standard for writing of calendar dates in all numeric form has been prepared to obv iate the confusion 
arising from misinterpretation of the significance of the numerals in a date written with numerals only ; it is considered 
that similar confusion does not arise when the month is spelled out, either in full or in abbreviated form. 

The occasions on which an all numeric date might be used have been examined and the advantages for these occasions 
of the descending order year - month - day have been found to outweigh those for the ascending order day - month - 
year, established in many parts of the worid 

The advantages of the descending order include the following in particular: 

► the ease with which the whole date may be treated as a single number for the purpose of filing and classification (for 
example for insurance and social security systems). 

► arithmetic calculation, particularly in some computer uses. 

► the possibility of continuing the order by adding digits for hour - minute - second. 

1 Scope: 

The latemational Standard specifies the writing of dated of the Gregorian calendar in all numeric form, signified b>' the 
elements year, month, day, 

2 Field of Application: 

The International Standard is apphcable whenever a calendar date containing the elements year, month, day is written 
in all numeric form. 

3 Rules for Writing calendar Dates: 
3*1 Sequences: 

An all numeric date shall be written in the following order: 
- year - month - day 
3.2 Characters: 

An all numeric date shall be expressed exclusively in arabic numerals, i.e. by using only the decimal digits 0,1,2,.. .,9. 
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3.3 Elements: 

An all numeric date shall consist of: 

► four digits to represent the year 

Note: Two digits may be used when no possible confusion can arise from the omission of the century, ^owcvct Joui 
digits should be applied especiaUy in correspondence and for docwnentation purposes to indicate clearly that the 
descending order is used. 

► two digits to represent the month. 

► two digits to represent the day, 

3.4 Separator: 

Where a separator is used in an all-numeric date, only a hyphen or a space shall be used between year and month, and 
between month and day. 

3.5 Examples: 

The 1st of July 1976 shall be written in one of the following ways: 

a) 19760701 

b) 1976-07-01 

c) 1976 07 01 
See also: 

Ap pendix C: ISO Date Standard 
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Appendix C: ISO Date Standard 



INTERNATIONAL STANDARD ISO 2014 



INTERNATIONAL ORGANIZATION FOR STANDARDIZATION . ORGANISATION Ds-reRN'ATIONALE DE NORMALISATION 



Writing of calendar dates in all-numeric form 

Representation numerique des dates 



Fiist Edition - 1976-04-01 



(UDC 529.2: 003.35 


Ref. No. ISO 2014-1976 (E) 


iDescriptors : calendar dates, writing, numeric representation 





Forward: 

ISO (the International Organization for Standardization) is a worldwide federation of national standards institutes (ISO 
MemW Bodies). The work of developing International Standards is carried out through ISO Technical Conumttees. 
Everv Member Body interested in a subject for which a Technical Conunittee has been set up has the nght to be 
represented on the Committee. International organizations, governmental and non-governmental, m liaison with ISO. 
also take part in the work. 

Draft International Standards adopted by the Technical Committee are circulated to the Member Bodies for approval 
before their acceptance as International Standards by the ISO Council. 

Prior to 1972 the results of the work of the Technical Committees were published as ISO Recommendations; these 
documents are not in the process of being transformed into International Standards. As part of this process, Techmcal 
Committee ISO/TC 154 has reviewed ISO Recommendations R 2014 and found it techmcally suiUible for 
transformation International Standards ISO 2014 therefore replaces ISO Recommendation R 2014 - 1971 to which it is 
technically identical. 



ISO Recommendation R 2014 w as approved by the Member Bodies of the following countries: 
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Austria 


Italy 


Sri Lanka 


Belgium 


Japan 


Sweden 


Canada 


Korea,, Dem P. Rep of 


Switzerland 


Egypt, Arab Rep. of 


Korea, Rep. of 


Thailand 


France 


Netherlands 


United Kingdom 


Germany 


Poland 


U.S. A 


Greece 


Portugal 


Yugoslavia 


Hungary 


South Africa, Rep. of 




India 


Spain 



The Member Bodies of the follow ing countries expressed disapproval of the Recommendations on technical 
grounds: 

► Czechoslovakia 

► Iraq 

► Ireland 

No Member Body disapproved the transformation of ISO/R 2014 into an International Standard. 
For body of ISO Date Standard, see: 

Wriiinu orC:ijej)djr cbios in all-numcnc form 
See also: 
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